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REQUIREFENTS 


CHAPTER 1 
. REQUIREMENTS 


PDP-11 FAMILY CENTRAL PROCESSOR WITH 4K MEMORY WITH UP TO 64 TMO2/TE16 
CONTROLLER/MAGTAPE STATIONS. 


#+#PROGRAM BE RUN ON A PROCESSOR THAT DOES NOT ee 8 DNS, Be ee eet eree 


CAN 
A SOFTWARE SWITCH REGISTER (SWREG) LOC. 176 IS AUTOMATICALLY SELECTED( 
CHAPTER 3.FOR DESCRIPTION OF HOW TO DYNAMICALLY LOAD LOC.176)### 


1.1 OPTIONAL EQUIPMENT USED 
1. NONE 


1.2 STORAGE 
PROGRAM LOADS AND RUNS IN THE FIRST 4K OF MEMORY. 


1.3 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION) 


MAINDEC-11-DZTUC CONTROL LOGIC TEST 
MAINDEC-11-DZTUB BASIC FUNCTION TEST 


a 
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TMOG DRIVE FUNCTION TIMER PAGE S 
LOADING AND STARTING PROCEDURE 


SCASERESESPETS 


CHAPTER 2 
LOADING AND STARTING PROCEDURE 


THE PROCEDURE IS AS FOLLOWS: 
4 fia — THE ABSOLUTE LOADER 


= 200 


SET Ser OPERATING SWITCHES 


##2IF THE SOFTWARE SWITCH REGISTER IS USED THEN THE PROGRAM WILL TYPE SWR=XXXXXX NEW= 
THIS s WILL ALLOW LOC. 176 TO BE CHANGED BEFORE THE START OF THE TESTING.(REFER TO CHAP 


DH See VR EGRESS 


e213 
214 
tt4 PROGRAM WILL REQUEST DRIVE (TMO2) oo ns (TE16) Pi TO. BE 
$17 DRIVESLAVE TO Be TESTED. = came —Fainmerslens 
e193 REQUESTS FOR TAPE SPEED TESTS NRZ_ ONLY MODE WILL BE MADE. 

‘, gp Ore REE WAIT A ONE (1) WILL CAUSE 

Ls ea 32 ONLY. THIS IS THE ONLY WAY 

223 NRZ ONLY MODE WILL CAUSE THE PROGRAM TO SKIP THE 1600 BPI DATA TIME TEST. 
ec4 TYPE U (fU) TO DELETE LINE TYPED OR RUBOUT TO DELETE LAST 
so CHARACTER(S). 
4 PROGRAM WILL PUBLISH TIMES REQUIRED AND REPORT ERRORS. 
e2c3 
230 
e231 2.1 ACT11 OPERATION 


rurory 
2ER 


IF THE PROGRAM IS RUN IN QUICK VERIFY MODE, FUNCTION TESTS ARE NOT 
ITERATED. 


O1 
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CHAPTER 3 
SWITCH SETTINGS 


EDS EIAS SAAT! Bay a 
at POL ATOE ie EP ELE 


REGISTER (LOC. 176) IS USED. 


CONTROL : 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 

DOING THE FOLLOWING: 


1) TYPE CONTROL G <?tG>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT Ted POINTS WITHIN THE PROGRAM. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER. ) 


3) AFTER THE ’’NEW=’" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


BE Oe ET tt Be ne AZo POLED BY 8 
\ PP otaare o e WILL BE ACCEPTED AND ONLY & NUMBERS 


Te 6 cca ois TH o iat RST Key aa THE SOFTWARE SWITCH 


B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP e. 


enema 
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HALT ON ERROR THIS SWITCH ~_ me. WILL HALT 
PROCESSOR 


LOOP SUBTEST 


Reser =e 


THE Denis et cH At ae Pee 
NUE WI ERROR “TOBE BE 
a TED) AND FURTHER TESTING 
WAS ELS “ERROR CONDITION. 


THIS SWITCH WHEN SET INHIBITS ERROR 
TYPEOUT. 


APH Rion OSETIA 


INHIBIT 
FUNCTION TIME 
PUBLICATION 
RING BELL 

ON ERROR 
HALT AFTER 
SELECTED TEST 
CONTINUOUS 
CYCLE 


TEST SELECT 


THIS SWITCH WHEN SET WILL INHIBIT THE 
PRINTING * THE FUNCTION TIMES. (SEE 
CHAPTER 8.) 


nas SWITCH WHEN SET WILL RING THE BELL 
ON THE TTY WHEN AN ERROR IS DETECTED. 
aS a AO TMs OOF Ecc 
Ge HO aa 
THIS SWITCH — SET WILL CAUSE THE 
TO BUN ere SRUOUSLY UNTIL 
STOPPED BY THE OPERA 


THE PROGRAM WILL HALT AFTER EXECUTION 
OF THE TEST SELECTED WHEN SWO7 IS SET. 


SEQ 0007 
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CHAPTER 4 
ERRORS 


TWO TYPES OF ERRORS ARE DETECTED BY THIS PROGRAM, HARDWARE ERRORS AND 
INCORECT FUNCTION TIMES. 


4.1 ERROR TYPEOQUT FORMAT (HARDWARE): DATA RELATED ERRORS (IE: PARITY ERROR) ARE PRINTED 


TEST # 
csi 
AAAAAA 


XXXXXX 


AND HAVE NO EFFECT ON TIME. 
XXXXXX DEVICE ERROR 


WE BA FC CSe__—Os ER1 
BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG 


= TEST 


NUMBER 
AAAAAR-IIIIII = CONTENTS OF TAPE REGISTER 172440-1724S4 


4.2 ERROR TYPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 


TEST # 


XXXXXX OUT OF RANGE ERROR 


RANGE = <ARAAAA-BBBBBB> ACTUAL = CCCCCC 
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CHAPTER 5S 
SUBROUTINE ABSTRACTS 


5.1 .SCOPE 
THE sors ROUTINE IS CALLED BY THE SCOPE (EMT) INSTRUCTION AT THE 
START EACH SUBTEST. THE .SCOPE ROUTINE PERFORMS THE FOLLOWING 
FUNC Ons: 
LOADS RS WITH BASE ADDRESS 
TYPES TIME LINE <SWO8> 
PROVIDES CONTINUOUS LOOP <SW14 
MOVES FUNCTION TIME INTO TABLE 
OUTPUTS LINE ITEM IF SELECTED 
PROVIDES HALT ON TEST <SWO07> 
DELAYS 3S0MS BEFORE STARTING TEST 
INIT’S DRIVE/SLAVE 
9. CLEARS THE ERROR FLAG (ERFLG) 
THE ROUTINE MONITORS SW14, SW11, SW10, SWO8, AND SWO7. 


onwer ROUTINE WILL CHECK FOR CNTL_G<fG> BY DOING A JSR PC,CKSWR 
(REFER TO CHAPTER 3 FOR DESCRIPTION). 


Reece * 
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5.3 .HLT 


THE HLT ROUTINE IS CALLED BY THE HLT ( 
IS DETECTED. A HLT (TRAP) INSTRUCT ; 


Thar Fone )_ INSTRUCTION WHEN AN 
IN SEC 4.1. A HLT+1 (TRAP+1) FORMA 
Ete 


eT De a nT 


anes SOS WILL CHECK FOR A CNT : BY DOING A JSR PC,CKSWR 


L 
O CHAPTER 3 FOR DESCRIPTION 


SEQ 0010 


SESCERTERACRSARADHRAGSE SES IEEE 


“N 
_ 


+t 4 
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CHAPTER 6 
MISCELLANEOUS 


6.1 STACK POINTER 
THE STACK POINTER IS INITAILLY SET TO SOO AND IS RESET TO SOO BY THE 
SCOPEA ROUTINE. 


6.2 EXECUTION TIME 
WHEN SW1ll=1 (INHIBIT ITERATIONS) THE TIME REQUIRED IS 2 MIN. 
WHEN SW11=0 (ITERATE SUBTESTS) THE TIME REQUIRED IS 9 MIN. 


Zan 
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CHAPTER 7 
PROGRAM DESCRIPTION 


7.1 SAMPLE TIME DOCUMENT 

TYPE FIRST ADDRESS OF CONTROLER 172440 

FoR THe DRIVE Q- TYPE SLAVE 8° TO AC TESTED 7 

tier SPEED teere ont = 170) 0 

NRZ ONLY? ( = 1/0) 

es S4-4-15-4-4-5oh-4}-teded ¢-1-$-bclah-t-Sob-t-tnkeb-t-4-Foh-habedad-teb-toh-tel-tahetel-tah-tal-bet-tetadeh-i-f-feleheted-5-S-f-ta 
% TMO2 DRIVE FUNCTION TIMES- DRIVE # 0 SLAVE 8 7 9 CHAN. SER. # S009 


rf 
TION TIME (ACTUAL ) 
oe Bot ACTUAL= 


=—=—4— 
DDPD 


BRINE hos Soin ct CBee RH S Se oRR Poe ee eRRO ORO wT 





= 
= 
. 
he 
3A 
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S32 
as TMO2 DRIVE FUNCTION TIMER PAGE 12 
ex 7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 
— 

2 Nee Be te gi Aer he eaten | TO BE TESTED 7 
ay abs ONLY? ( 1/0) 1 

1 EREREEET EE 
a5 STHOE ORIVE FUNCTION TIMES- DRIVE © 0 SLAVE © 7 9 CHEMI. SER. © SOUS 
Say #FUNCTION TIME (SPECIFICATION) TIME (ACTUAL ) 
Sus #TAPE FWD RANGE =< 022700-0e21700> ACTUAL 
S46 #TAPE SPEED REV RANGE =<022700-021700> ACTUAL =022500 


uy 
£ 
N 
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SEQ 0015 


PAGE 13 


TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 
TEST NO. /NAME 


i. 


2. 


3. 


16. 


17. 


WRITE FROM BOT 


WRITE START 


WRITE SHUTDOWN 


WRITE SETTLEDOWN 


READ FROM BOT 


READ START 


READ SHUTDOWN 


. READ SETTLEDOWN 

. READ REVERSE START 

. READ REVERSE SHUTDOWN 
. READ REVERSE SETTLEDOWN 
. TURN AROUND F-R 


. TURN AROUND R-F 


GAP SIZE-STOP HALF 


GAP SIZE-START HALF 


. GAP SIZE INTERRECORD 


RELATED ADJUSTMENTS 


& oo 


*FWRD/REV SPEED-START/STOP-RAMPS 


*SAME AS IN TEST 16 


*FWD/REV SPEED 


E0e 
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693 TMO2 DRIVE FUNCTION TIMER PAGE 14 
605 21. GAP CONSISTENCY “SAME AS IN TEST 16 

607 #TEST NUMBER 22 IS RESERVED FOR FUTURE USE 

603 23. DATA TIME 200 BPI *NONE 

61 

bie 24. DATA TIME SS6 BPI x * 

614 

bis 25. DATA TIME 800 BPI 5° 

617 

618 26. DATA TIME 1600 BPI ** 

eS 27. ERASE GAP TIME x” 

bee : 

B53 30. WRITE FILE MARK ** 

is | 

be? 31. TAPE SPEED-FORWARD “FWD SPEED 

629 

630 32. TAPE SPEED-REVERSE #REVERSE SPEED 

632 

633 ¥£%4*NOTE: IF TIME PROBLEMS APPEAR IN Tl THRU T30, RUN TAPE SPEED TESTS FIRST#xxxexx 
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A 7.3 TEST DESCRIPTIONS: 
639 THE F Pinte ( * OF _THE 
64U nor CiReurTS g Hele Cros), THE tect CouNTER IN THE 
ea3 SETTLEDOWN ONE SHOT (MB910). 

3 Tl. WRITE FRON BOT: 
645 THIS TEST WILL MEASURE ee ION DELAY REQUIRED TO 
646 MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
oie FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA. 
oo 4. 9 TSSLE- A WRITE” COMPERO ge aes STOPPED AT BOT. 

3 non BRIT BIT 15 OF TC ¢ 
Bs PALE Hothole Ess oor oe 
653 S. 
654 
655 Te. WRITE START: 
a TEST HOVER T ea Sta wie at DELAY JUST AS IN 

2 WI LESS WHEN NOT STARTING 
660 
661 TAPE AT ITS POSITION. ASSURE THAT IT IS STOPPED 
es kee Pa Bee 
663 3. tal A iT Mis OF TC CACCL) 
eee a ME FROM GO TO RESET OF ACCL IS START DELAY 
666 
667 T 
at 3. WRITE SHUTDOWN: 
669 


: SO OE ae 


67e 

673 ih. aT ITS POSITION. ASSURE THAT IT IS STOPPED 
674 2: TSSUE A Wr 

675 3. pong Tor AND BIT 4 OF DS (SDWN) 

676 4. TIME FROM FC=0 TO ASSERTION OF SDWN IS 

677 THE SHUTDOWN TIME. 

678 S. STOP 
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T4. WRITE SETTLEDOWN: 
THIS TEST WILL MEASURE THE SLOWDOWN TIME. THE TIME 


Be STOPES. Tus AOR MTT TELE PO rc 


CHANTCAL D Th ROE oer ne TAPE IN THE GAP DISTANCE 
WILL "te MEASURED IN A LATER TEST 


LEAVE TAPE shat vacsiatnenaen ASSURE THAT IT IS STOPPED 
TE COMMAND 

4 OF DS (SDWN) 

OF SDWN TO RESET OF SOWN IS THE 


mn £WruE 
3 
ow 
i 
=~ 


TS. READ FROM BOT 
THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 
a Tl. USE THE SAME RECORD THAT WAS 


. REWIND TO BOT 
. ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 
ORWARD 1 RECORD. 


1 

e 

3. F 

e MONITOR BIT 1s OF TC (ACCL) 
6 


oo 0 ACCL IS BOT DELAY 





HOe 
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ay Té. READ START 

713 THIS TEST MEASURES THE SAME DELAY AS IN Te. 

7 we : TOPE Is STOPPED. 

He 4 HOLE 4 RESO TADS BORE. Alt SR NEST 

717 3. HanT TOR BIT 1S OF TC (ACCL 

718 4. TINE FROM GO O RESET OF ACCL IS START DELAY 


T7. READ SHUTDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN T3. 
WRITE 1 RE EN Tien in che? ASSURE TAPE IS STOPPED. 


Bi Ne BT OBS Neo 


T10. READ SETTLEDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN TY. 


WRITE OVER IT ASSURE TAPE IS STOPPED. 
READ FARERO THE REC ITTEN IN STEP 1 


SDN) 
SDWN TO RESET OF SOWN IS THE 


oe oe et 3 


SSA SAOVRNITASSSOVONTON AS 
wm £Wwre 
Kz 
g 
= 
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T1l. READ REVERSE START: 
TH T WILL MEASURE THE START DELAY IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE I 


i ane eee me 


. Tie TIME FROM GO TO RESET OF ACCL IS THE START TINE 
T12. READ REVERSE SHUTDOWN 


THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 
DIRECTION. 


[ RATT 
x Je THE READ REVERSE I CAST RAE READ) TO SDWN=1 


T13. READ REVERSE SETTLEDOWN: 
wee Teen. WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 
& '¢ IRITTEN IN STEP 1. 

I U4 
4: O'RESET OF SDWN IS THE 
Ss. SToP 


T14. TURN AROUND DELAY-FORWARD TO REVERSE 
ws TEST WILL ree THE TIME REQUIRED FOR THE TAPE 


O CHANGE DIRECTI 
1. LEAVE TAPE AT PRESENT POSITION. ASSURE THAT IT IS STOPPED 
e. I A a 4 eA OF AT LEAST 20 FRAMES 
g tril fe ar SRE MED, IMMEDIATELY ISSUE A 
READ REVERSE OF THT RECORD. 
2 no PR oe Re eb TO RESET OF ACCL IS 
THE TIME. 
7. STOP 


haa incite 
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T1S5. TURN AROUND DELAY-REVERSE TO FORWARD 


THIS TEST WILL MEASURE THE TIME AS IN T14, BUT IN THE 
OPPOSITE DIRECTION. 


HEU! BBE ORS stoppeD 


T (BIT 7 OF DS) 
DRY = 1, ISSUE A READ FORWARD 
MONITOR ACCL’ (BIT 1S OF TC) 
Lay Fe an re ao 2 IS THE TURN AROUND TIME. 


SURReRO Sse | 


+ 
+ 
~Teeet. 


© 
wrr-oO 
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GAP MEASUREMENTS: 


cate ae 


REROUREENTS. A THIRD y eerrenT, BOE ON Te 
Tl6. GAP SIZE (STOP HALF) 


THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
IN A_STOP CYCLE” IN OTHER WORDS, THE DISTANCE INTO 


creme OF 


THE IRG. 

1. WRITE 1 

e. T IS STOPPED. 

3. i A READ OVER THE RECORD 

4. MONITOR THE FOR THE FIRST FRAME READ (FC = 1) 
e- ie FROM GO=1 TO FC=1 IS THE LENGTH OF THE GAP 


T17. GAP SIZE (START HALF) 


THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL 
DURING START UP. 


. WRITE 1 THEN REVERSE OVER IT, ASSURE TAPE IS STOPPED. 

é ISSUE A READ PORMARD 
. MONITOR FC FOR FC=1 

e 3 FROM GO=1 TO FC=1 IS START DISTANCE 

T20. GAP SIZE (INTERRECORD) 

THIS TEST WILL MEASURE Ee THIS LENGTH OF ne ee ON 

Farle FSR Mo eet Sin Bere ae Raa 


ARE NOT IN 
EFFECT. Pe we SHOULD ACTUALLY Y BE LESS THAN THE 
SUM OF T16 AND 


SUT eng ioe 


erent ISSUE A SECOND READ REVERSE 


mT oe crete oe! op A ones READ REVERSE TO FC=1 IS THE 
LENGTH OF THE 


SEER ERS CIC TDR BSS RR TORe SOSA OM Se TON Re. bas aeare 


LOe 
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TMO2 DRIVE FUNCTION TIMER 


Tél. GAP CONSISTENCY: 


el tb Per rte Becta 
le iene 1a 


: i rz ble 7 
cle £16) Eliya apr IVE DELAY 
y, oe 
5. e BO LOM THe Tp 
a per te. 
6. ee TO Fi {At AND IT 


RIN CONSISTANT FoR ALL 
GTIMTBL IN DZTUG LISTING FOR GAP TIMES) ## 


T22. RESERVED FOR FUTURE USE##### 
T23. DATA TIME AT 200 BPI: 


THIS TEST WI gy TIME REQUIRED TO WRITE 
200 BPI. 


Sis pete shorae 
rune TO BOT AND ALLOW TAPE TO STOP 
eR rare FoR barn Beco 


DRY WILL BE THE TIME REQUIRED 
«ee 1 INCH AT THE SELECTED DENSITY 


ode REPEAT STEPS 1 THRU & OF T23 AT SS6 BPI. 


T2S. DATA TIME AT 800 BPI: 
REPEAT 1 THRU S AT 800 BPI. 


T26. DATA TIME AT 1600 BPI (PE): 
é' T 1 THRU 5 AT 1600 BPI. 
#£THIS TEST IS NOT EXECUTED IF NRZ ONLY## 


a 


DZTUG-8 TMO2/TE16 DRIVE Aer tape: TIMER MACY11 30(1046) 1S-JUL-77 12:55 PAGE 2S SEQ 


OZTUGB.P11 


TRESS SER LGa A Sas NTC Sa 


TMO2 DRIVE FUNCTION TIMER PAGE 21 


T27. ERASE: 


Hite Bil eae wh Me romeo DHREETIN 
; ‘tee Brel rage rst 


:- MONITOR DRY (BIT 7 OF 


eee To bRiee 3 aa Rn a 


DISTANCE. DENSITY IS NOT A FACTOR. 
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$S8 
959 
960 
2 
963 
S64 
965 
366 
967 
968 
969 
970 
971 
97e 
973 
a 
378 
979 
380 
981 
982 
983 
= 
987 
988 
989 
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T31. TAPE SPEED FORWARD: 


BES RL USD ele (8 SEP LEB GIG 
Eh Ree re so 


FRAMES ON A SKEW TAPE IS 


TSS 8 FER IS STOPPED AT BO 
ai 


ee mB Cet... IS THE TIME REQUIRED 
- PEPER War MAREE FAs en, 


132. TAPE SPEED REVERSE: 
THIS IS THE AS TEST 31, BUT SPEED IS 
TEES MED IH THE REVERSE DIRECTION. 
ADVANCE TAPE OFF OF BOT. 

ISSUE A 


REPEAT ofEpe 3 THRU 6 IN THE REVERSE DIRECTION. 


rer errer 


ae os at 





SEQ 0026 


“é 
: 


28 § 


Peat nace estat 


Cco00 000000 


ee 
WONW UL WHO 


ee ee ee ee ee ee ee ee ae ae ae ae ae me Be an ene me ho be te ae fe he Pe en Be Be Be Pe be ee 


Free trtiniatdaisiniatstet ciated inisttois 


uv 


Fg 


VA 





oe 


TION TIMER 


:S2 


CO3 
MACYI1 30(1046) 1S-JUL-77 12:55 PAGE 27 Seo 0027 


-NLIST MC 
-LIST ME 
ABS 


WAL Berut-bfmue/teie ortve Fu FUNCTION TIMER 


optics ING INSTRUCTIONS 


LOADING 
: LOADER 


- 
= 
a 
39 
s 


RS=ADDRESS OF CS1 (SET BY SCOPE) 


ATOM RERISTEN BUTE SSSIOPENT 1 cn 
ns i HT eeeP Tag CATION OF PUNCTION TIMES 
ie Bie Perey ac reer 





a 

SuO7= HALT ON CTED IN SWOS-SWOO 
ayes CONT Cvee” 

.SBTTL MACRO DEFINITIONS 

JSR . SAVE ;SAVE REGISTERS ON THE STACK 
“FRCRO Mall 

ee ae TORE ;RESTORE REGISTERS FROM THE STACK 
# 

ia ey HUT CET USER INPUT 

4 I 

“MACRO REWIND 

JSR PC, . REWIND ;REWIND SLAVE 

BVS 998 “BRANCH IF ERROR ON REWIND 
fete Free 

JSR PC, TIMON ;TURN TIMER ON 

RO TIMCHK 

if TIMER(R3) ;GO TO TIMER & RETURN VIA Re 
“MACRO SETGO 

INC (RS) ;SET °GO’ BIT 

. ENOM 
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OZTUGB.P11 1S-JUL-77 12:Se2 REGISTER ASSIGNMENTS 








1046 ‘if ao. ASSIGNMENTS 
1047 3 DEFINE TON ES aslares SSS EENTS 

1048 o00000 

1 000001 Rent 

105 o00002 R2=%2 

1 000 R3=%9 

t Rea 

bee ener ee 

1056 000007 PC=%7 

1028 eee eer 

1059 erred Rl2=%2 

1060 000003 Rl3=%3 

1061 000004 RI4=%4 

1062 o0000S R1S=%S 

ie 177 ; ;REGISTER : 

1065 ree ae ORs 177774 5 TC CINIT PELISTER (11/40 11/45) 
1067 177772 PIRQ= 177772 + PROGRAM (11745) 

1068 177770 UBREAK= 177770 23M Fa REGISTER (11/45) 

1069 177560 TKS= 1 33 

1070 177562 TKB= 177562 $3 aD bara REGISTER 

1071 177564 TPS= 177564 He 

107¢ 177566 TPB= 177566  TELEPRINTER DATA BUFFER REGISTER 
a vero ESS cre 

i 000010 ReSve 10 oF NST. TRAP VECTOR 
aa an etd Tee Verte 

i p00 4 BE TVER=14 ey Int’ YRAP VECTOR 
1080 o00020 IOTVEC=20 OF I0T TOR 

1081 googe PFVEC=24 OF FAIL TRAP VECTOR 
1082 EMTVEC=30 < VECT 

1083 000034 TRAPVEC= OF VECTOR 

1084 000060 TKVEC 60 OF TTY INT. VECTOR 
1085 000064 C=64 TTY PRI INTERRUPT VECTOR 
1086 000114 PARVEC= 114 OF MA/MF PARITY ERROR VECTOR 
ns et ge Foti Sor mer, ecto 
108% MMVEC=2S0 OF FER MGNT ERAOR TRAP VECTOR 
1 CLOCK ADDRESS AND VECTORS 

ipa 172540 PLKCSR= 172540 

1093 000104 PLKVEC= 104 

1094 17756 LKS= 177546 

{pae 177514 tbe 177514 

1037 177516 LPB= 177516 

1099 ;RH11, TMO2/TE16 REGISTERS 

1100 172440 TMCSI= 172440 


E03 
1S-JUL-77 12:55 PAGE 29 


REGISTER ASSIGNMENTS 


OZTUG-8 TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 
1S-JUL-77 12:S2 


OZTUGS. P11 


;CONTROL STATUS 81 


/TE16 REGISTER BITS 


guzgouzearesy © <p ananaaee SEE 


sashassagces Be esauee SPHERE caccak 


INDEX VALUES 


omegtg * 





} SBS RSSSSLAVIz Mh LOR GTON RRS BSS F 


hh hh ht et tt td 


: o-sumzun.on 2293888 


pabasaasantned ols 


tke 


;RHCS2 


cucsee EEeEceeeseeanes 


FSF PPS PT ROAR 


RRR RR RRB pp 


Gh a dh a dt td dd dd dg a hd a gt a 


FO3 
1S-JUL-77 12:55 PAGE 30 


TMG2/TE16 REGISTER BITS 


OZTUG-B TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 
1S-JUL-77 12:S2 


DOZTUGB.P11 


EE cosaastGlees ree a GY ai ae 


seosuseageedoacassneetessg ebepoboes TTT. a 


es 
: : fi 


; INSTRUCTION EQUATES 


;RHTC-TC 


tices 
teres 
LALSO. 


Gesuee Bascecsccsccnr: Gos Getectere? @ Ey Beeecee 


HRY SHIT STROLLERS SATE CES RERTMRT ARE RE RAYA MRS BEI 


ee ee ee ee ee ee ee ee ee ee ee pe ee ee cucucurmy 
a kh hh hh dd hh hh hh hd td ed tt 


OZTUG-B8 
DZTUGB.P11 


TMG2/TE16 DRIVE FUNCTION TIMER MACY11 30( 1046) 
15-JUL-77 12:S2 


{Biooe 


G03 


TMO2/TE16 REGISTER BITS 


1S-JUL-77 12:SS PAGE 31 SEQ 0031 








DZTUG-8 TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(104%6) 15-JUL-77 12:55 PAGE 32 SEQ 0032 
OZTUGB.P11 15-JUL-77 12:52 TMO2/TE16 REGISTER BITS 
122 SETUP TRAP VECTORS 
ex “Won ‘« *T* TRAP_TO TIMER ROUTINE 
1 ¥ HALT ‘PR TOR ITY LEVEL 7 
i ; . TYPE ise TOT TREE TO, TO . TYPE ROUTINE 
i ris Pevecea ie: TO HALT 
; “WORD SCOPE SET E TRAP TO .SCOPE ROUTINE 
i 365 ‘Hoe sth 2 3s Tie 10 -HLT ROUTINE 
‘i : IORITY LEVEL 7 
1241 ; * =TKVEC 
1 003606 “WORD  TKISR 
1 000340 ‘WORD 340 
1 ;SOFTWARE SWITCH REGISTER LOC. 176 
1 000176 ’2176 
! 000176 000000 SWREG: 0 ;SOFTWARE SWITCH REGISTER 
1 =200 
i ; 000200 read 005724 IMP asINIT GO TO START OF PROGRAM 
1252 o00s500 .=500 
: 000600 STKPTR= 600 ; STACK 
1 001000 .=1000 
1 - PROGRAM TAGS 
bee? 901000 177570 SWR: 177570 ;SWITCH REGISTER 
1955 rates a BRVNUR: ‘Bre i ;TMO2 DRI 
1260 O01 SLVNUM: . 0 *TE16 SLAI WER TEST os 
18es atte Peng Fignse: Hone Pncsi A alee es PRB 
ieee OOLOId Gobben ATINfGL: (BUKW Ib pxtiey carte COMTBINS 11 TERN FUNCTION 
Ieee 1054 Pda ‘. Eva RE BY By Sobre OUT CONSISTANCY™ TEST 
tees obits DELTIM: : WORD A y i VARTBLE BOOED 8 
nates pee: oe GAP # (USED FOR TST 021) 
eee eB fin, WE haa 
1 ll ERFLG: | BYE 0 + ERROR 
cA Bile Gnirns: “EVIE 8 APPLE exon 
i it cee 6 INDICATES IF DRIVE IS NRZ ONLY 
1 ates Boe weer ae BYE 0 : 98 = YES/NO. ; 
1 11 * EVEN 
1 11 DIGTAB: *O1 
1 ll 1 "23 
1 il “4S 
i tia “Bg 
1 1144 ODIGITS: .BLKB 6 RESERVE SPACE FOR CONVERTED DIGITS 





TNO2/TE 16 res oe TIMER MACY11 30(1046) 15-JUL-77 12:55 PAGE 33 


OzTucs.Pil 15-JU- TMO2/TE16 REGISTER BITS SEQ 0033 
1295 O011S2 O90 BvTE 0 ; TERMINATOR 
i Ap aati eve: BB bs 8 Ul SOME WT 1B A Be TERT 
3) BB? = 58 Bre i Eat separ im DUS ASCII CHARACTERS 
5a SOL BELL: -ASCIZ <7) 
ie Bi ies = SPACE2: sets + 
a nn a ae 


JO3 
TES OY GUEION TOMER RE ARLES ok”? SP 






1299 -SBTTL TIME SPECIFICATION TABLE 
RAR EAP TIRES FR AD CES Ma Es MPS 
: prorat TR : ; TIME IN MS FUNCTION TEST 8 
Ei ieee {[PH-0-}50-0 WRITE Emon oT Tero 
1 : 2728.5, mt TSTOO3 
i 137 6.33.0 OH BOT TeTb0¢ 
Gis Re Salibows T3107 
iee-8 fey gi, E10 


Can) GC) CIE) 
= b= pape 
0D NOUN £ 


SERS SEN TSA 


: 
i 


SRP PP SOE NTT w. 
PPT ot? 
Some 
KOO cy 
SS 
AA 
44 
[ham 
aA 
ie 


._-_ 
t 


ooo o000o = 
fb b= = be ee A 
, 
SoG RéseSSeSURRN SMa 
se @ 8 8 ese @e @ee#ee#e#seee#ee#ts###e#e#eeee#*® 


I 

io 

4 
Ns 
So 
rm 

. 

+ © 


5555355 555 SaassSSSSSSSSSSS 





s 7-21. APE 1 
70.  322.7-21.7 RD REV 1" TAPE TSTO32 
32 REQUIRE PRERECORDED S00BPI SKEW TAPE. 


B+ Bes fae bm fe hh fe = be he Bo Re 


rat 
m 
m 
w 
4 
WwW) 
— 


KO3 
15-JUL-77 12:55 PAGE 35 


30( 1046) 


ME SPECIFICATION TABLE 


1 
I 


MACY1 
GAP T 


1S-JUL-77 12:S2 


OZTUG-8 TMO2/TE16 DRIVE FUNCTION TIMER 


oem Pil 


) FOR EACH 


1). 


eeveerere SS eeee 
¥aq00000000 Ss 2 Se 
OAT UWNaG aa 


DELAY IN MS(10) 


OUI TwMwOK 
PTPET EP rrr rrs 


erecereerereren 


CWMrrO0000O0000000 


MUMMMCMCUCUCUCUCUCUCUCUTuCUm 
TEEEECLELETITTrrrr 


FFUUNUT FT TFIMIMMIMIMIO 
een en eeyeaneaaa ce onl 


Puls isistesiststtstots 


OOOOO000000000 


. e a a a 2 co * ¢ . 3 o o a . . 
Surin SSS SSS 
> BS 
dd ad wd wd wt 4 
OQOOOOOOOO0O0000000 


singed IN MS(10) GAP 8 


GAP TIME SPECIFICATION TABLE 
-WORD MAX,MIN(10) 


. 
TE: 
CTENTEL: 





| SeRARRERERRRE RARER 


a dd ed ed tt hs od ed me ed ed ew 


LO3 


Sat TES TES AT” 1 = 


;DUMMY TEST 


CONTAINS POINTERS TO EACH TEST’S DESCRIPTOR 


TEST HEADER POINTERS 


Sasa oy = 
SESSSeeccecseasee Seesasas 


a a da a 


——— 


¥ 





ete 


ooUOUOOO 


SEG RR ERR ARAN CR RR ORERERERER 


avatatatalatotevotatatavelatatatoteleteteteteretetete) 


S888 
| RERaa aaa a RSSNRRSER RR RSI RERR 


BD a ah a tg kd ed ed 8 8 eed oe eh GQ ey 


Od ed ag Sd Od ed ed ed de 


Tae eens 





OZTUG-B8 TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 1S-JUL-77 12:55 PAGE 37 SEQ 0037 
OZTUGB.P11 1S-JUL-77 12:Se2 TEST HEADER POINTERS 


s EEK aren REGISTER ROUTINE. CHECKS FOR fG TO ALLOW CHANGING 
sOF LOC.176. 





1390 CALL IS BY WAY OF JSR PC,CKSWR 
tes ee “oko r 
1 count. * "WORD OO 
ROSH: -WORD O 
1 cre SSHREG, SHR ;SOFTWARE SWITCH REG PRESENT 
T AND STRIP 
Bie 177608, T1B 
i cre 47,118 IS IT A’<tG> 
i ,L.CNTG 
: TYPE, Sa “ , 
1 ISR Be tPocT 
| TYPE, L.NEW 
4 ae } BUNT 
141 ISR pC, TTIN GO READ A CHARACTER 
141 BIC #1 ,TIB : IP OFF GARBAGE 
141 CMPB 825, TIB :1S IT A tur . 
tile Be NTLU TORT OVER 
14 CMPS —Sés«815, TIB 1S IT A <CR>? 
is Be og, BRANCH TF HO 
14 JSR PC, TCRLF ECHO I WITH <LF> 
1 CMP 87; COUNT :WAS IT FIRST CHARACTER 
BNE 7s i CHANGE SHR IF NOT FIRST ONE 
CMPB 40s«#6,0, TIB ‘ 
Bs i. 
BGE f ’ 
1 TYPE, L. QUEST 
; BR 9 oct START OVER IF NOT LEGAL CHARACTER 
i toe 
14 ASL T 
14 Bice #60, 118 : ;GET NITTY-GRITTY 
i Dec count ;ONLY WANT & DIGITS 
4 BR 1S 
14 MOV TEMPST, @SHR CHANGE SWITCH REGISTER CONTENTS 
14 BR PC 





DZTUG-8 TMO2/TE16 DRIVE FUNCTION TIMER MACYI 
1S5-JUL-77 12:S2 TEST 


OZTUGS.Pi1 


S 


ere 


= Oe 





16767 

000207 

000011 

D0e 14 DOC 
Resii> Bs 
00231 nO 


PREGA BSSAER POR“ BIS ALIA owe TORS Boe ODN Se 
Aaa fF maaan 
x} coe : ATA 
Bel leeds 


Pe Oe Oe Be Bae Bae Oe Be Pe Bae nO Pa ne Pe Bn Be en bn ae ae Bn ae Pe ee On ee Oe ne Be nn Be Oe Pe ee Pe 





7 

410 

105767 
1 

x 

athe 

1445 


175312 
te 
i 
se 


177450 


000011 


177462 


1752S4 


) 30(1046) 1S-JUL-77 12:55 PAGE 38 
4EADER POINTERS 


s TTY READ SUBROUTINE #eeueeeeee 


TTIN: CLR TKS 
CLR TKB 
CLR TIB 

mim: fve 
BPL TTIML 

TTIN2: Meta tee’ 
BPL TTIN2 
MOVB ‘ TIB, TPB 
RTS PC 


fife "Rourine WILL Tn 


He 


oOorF-O onVo F 


¢15><12> 


TSTB’ © ROSW 
BPL TYPE 
CLR ROSW 
RTS PC 

TYPE2: MOVB  (RO)+,-(SP) 
BNE TYPE4 
TST (SP)+ 

TYPE3: (SP)+,RO 
RTI 

TYPE4: CMPB &SHT, (SP) 
BEQ 9g 


TYPE ROUTINE 


INES 
SUBROUTINE 


ec eM ERNOS AN De, 


TRAP TYPE INSTRUCT 


a: 
:MESADR IS FIRST ADORESS OF ASCIZ STRING 


;;SAVE RO 

;;GET MESSAGE ADDRESS 

;;ADJUST RETURN PC 

;;BRANCH IF CONTROL 0(10) WASN’T TYPED 


3; TYPE <CR><LF> 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BRANCH IF NOT THE TERMINATOR 

5 i POE May NATOR CHAR OFF THE STACK 

; REST 

;;RETURN TO CALLER 


;;BRANCH IF HORIZONTAL TAB <HT> 


SE@ 0039 


5 & 

Hiyisk 

Pe a8 Pee Ape. 

ge ee pif # fF oad 

2 4H eee 

i ee te : = 2 | 2 ei : ‘ - : 5 ve S 
BRAN Be E* = 1 pipe. * 8 Oe *§ 
ot et 7 

zs ; : 3 ‘ - : 

we ips | ts E senass. ° Seance * 
a eEE Sate aticbdedatate TENSE g vemaute G ROBDODD | 
: Bese Hata bebsebecebube Fetcehs vESBBEBEBE eobeneite 2 
igi 
Ek BE EGESEEE ES 


‘ 
ry ETS 
6746 


Ss — SS See 
ee i 


| BRERSSRREE ona a A RE ORMADRG uOT PR PEA 


GR ad ad a Gd dd hd dg ae mg a Cd Gd ey ed dd a eg ad dd a ad he ed dd df 


iS-JU- 





OZTUG-8 TMO2/TE16 DRI 
OZTUGB.P11 





04 





DZTUG-8 6 OR TION TIMER MACY11 301046) 15 -77 12:55 PAGE 40 | 0040 
DoT Pll” Gece? ieee it a 
1553 CALL: MOV NUMBER. R2 -MOVE NUMBER TO R2 
i : JSR PC, CNVOCT : 
1 002622 110667 176300 CNVOCT: MOVB = SP, TYPFLG ;SET DO NOT TYPE FLAG 
i O0e626 O0040e2 BR CNYTO 
1583 AL TO ASCII & TYPE 
i ; SUBROUTINE TO OCTAL NUMBER TO ASCI AN TYPE IT OUT 
1Bee : ISR PC, > CALL INE 
i 105037 001126 Typoct: CLRB § asTYPFLG ;SET TYPE FLAG 
1 004767 177716 . JSR ‘ane m ; SAVE VE REGISTERS ON THE STACK 
i pieres CLR pe aS WILE CONTRINCOCTAL DIGIT 
1569 O0eb4E 1 MOV GET 8 TO BE TYPED 
i 265i 1S: RSL ‘SHIFT 
1 1 000006 MOV #6, RO ;SET DIGIT COUNTER 
: 002660 O00404 BR 3s 
i gnebbe 2s ast Re ;SHIFT # 3 PLACES LEFT 
1 gobs 1 DEC Rl 
1 1 BNE 25 
te Breb7 hese 001132 sa ROVE STO TAB (RI) (R4)+ a ae EQUIV TO OUTPUT 
is81 ore : onereNT DIGIT COUNT 
ake i hoe 
: 16 1 001126 TSTB = @BTYPFLG orate IE ASCII IS 
BPG BR oe chs a 
1 004767 177652 : JSR PC, .RESTORE RESTORE REGISTERS FROM THE STACK 
1589 002726 000207 RTS PC 
teat 
: INE TO TAL DATA TO DECINA, 

1285 Gat? hav CRUMBER. Re NOvE NUMBER TO R2 
154 : PC, CNVDEC 

110637 001126 CNVDEC: a STYPFLG ;SET DO NOT TYPE FLAG 


OCTAL TO DECIMAL & TYPE ROUTINE 
;THIS ROUTINE TINE CONVERTS AN OCTAL # TO mea ain Re AND TYPES IT OUT 





grils MOV 
ISR PC, PTPOEC ; CALL 
105037 001126 Tepge: ce asTYPFLG SET TYPE FLAG 
004767 177619 ISR PC, .SAVE ;SAVE REGISTERS ON THE STACK 
CLR RO :R0 TS INDEX TO DECIMAL CONSTANT 
1 001144 MOV 8ODIGITS, R4 T PTR 
1S: CLR R3 :R3 CONTAINS DECIMAL DIGIT 








DZTUG-B TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 15-JUL-77 12:55 PAGE 41 SEQ 0041 
DZTUGB.P11  1S-JUL-77 12:Se OCTAL TO DECIMAL & TYPE ROUTINE 
1609 003036 2s: SUB DCONST (RO), R2 ;SUBTRACT DECIMAL CONSTANT UNTIL 
1610 BLO 3S INPUT 8 NEGATIVE 
to INC sat TRACK OF SUBTRACTIONS 
ei OG ‘ 38: POD emo ; ADD CONSTANT WHEN NEGATIVE 
ola HOVE DIGTAB(RS) , (R4)+ i MOVE "feel! IVILENT 
tol st BEONST (RO) ‘UNTIL ALL CONSTANTS DONE 
1 MOVB 80, (R4)+ sLAST pIG TIS 0 
aggre aS fees 
! on TYPE, ODIGITS ; 
i ; ISR BC, - RESTORE RESTORE REGISTERS FROM THE STACK 
1 


sits 


Ole ere 
r 8 
o 
bd = 
° 
° 


TEST (STIMTBL (TSTNUMX4) ) 


a eas eae 


AiR TASS A Tete AAA AAA AAA Re 
= 
a, 
on 3 


es BR des Po fe ft B= bo bt ee Pe bo Re be eb Pe ee ee ee 


CALL: MOVB ee sL 
HOV howe TeNOve TIN TIME TO ATIME 
: J PC, 
bUTSPC: MOV Re,- (SP) ;SAVE R2 & R3 ON THE STACK 
MOV R3,-(5P) 
ASL Re MULTIPLY ¢ TIME 
ASL TO FORM I INTO EF HTBL 
MOV R2,R3 *R3 CONTAINS INDEX INTO TABLE 
TYPE, L.RNG 
MOV STIMTBL(R3),R2 GET MAXIMUM SPEC TIME 
JSR PC, TYPDEC ‘CONVERT TO DECIMAL & TYPE 
nove’ STIMNTBL+2(R3) , R2 ;GET MINIMUM TIME 
Tee PC, TYPDEC “CONVERT TO DECIMAL & TYPE 
1 MOV QBATIME, Re GET ACTUAL TIME 
1656 JSR PC, TYPDEC ‘CONVERT TO DECIMAL & TYPE 

if Ae ao, R3 

1661 MOV (SP)+'Re 


3 
a 3 
1 
a 


PC ; RETURN 
TYPE GAP TIMES SUBROUTINE 


pores Tete 6 oe re ta Saas TIMER MACY11 SOUUINGD eae PAGE 42 SEQ 0042 
bee a ra ae ig he ithe ta ol aii ir he GAP SI Be wid iN 


Vie THE MT NE (HLT+2). 
; LOAD GAP 8 INTO GAP 






1 
168 : nove one ATIME *LOAD ACTUAL TIME INTO ATIME 
1670 : JSR PC, OUTGAP 
re OUTGAP: MOV R2,-(SP) ;SAVE R2 AND R3 
MOV R3,-(SP) 
MOVB GAP, R3 GET GAP 8 
ASL Ra 
aoe L a 
mov” PG IMTBL.(R3) ,R2 GET MAX TIME 
JSR nacho? TVPOEC :CONVERT TO DECIMAL 8 TYPE 
MOV’  GTIMTBL+2(R3),Re ;GET MIN TIME 
JSR Be wyebee - i CONVERT TO DECIMAL & TYPE 
TYPE, ANGTAS ; TYPE 
Be erin Re TUAL TIME 
ISR , TYPDEC pee TO DECIMAL & TYPE 
TYPE ,E.GAP ta, * 
toRE CRLF ’ : ~* 
MoV” ($P+,R3 pane R3 AND Re 
MOV (5P)+’ 
RTS PC 
ASCII TO OCTAL CONVERT I 
ie 10 ERI 6SCIl DR para to OCTAL. OcTAL DATA 
, ; LEF T IN OCT 
1 032% JSR : CG STACK 
1 13 MOV SE ‘eye TB EEE rT pata 
1 MOV sOCTALO, Ri *GET ADORESS OF OCTAL DATA 
i CLR &R ), “CLEAR OUT OLD OCTAL DATA 
i 1S: CHEB CR, (ROD ;<CR> TERMINATES INPUT 
1 : (RO)+.R2 OCTAL’ DATA 
1709 Bee #1 »Re She i ED BITS 
i 2: pl wer 
1703 E Ret 2(R1) Suet a 
i713 he | «Os 
1715 BIS Re, (R1) AND INSERT THIS DIGIT 
i718 ‘ss BR 1§ GO GET NEXT DIGIT 
171 . PC, .RESTORE TORE REGISTERS FROM THE STACK 
ih m Ea 
171 .SBTTL PUBLISH SUBROUTINE 
1720 ;THE PUBLISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT- 


OZTUG-8 
OZTUGB.P11 


SE 


bat Pest Ft he fee Bao a et Bao Gs fae Pm ee 


SAWIAITELE KTS RSS AAAS SSRF ESHA SANS TONIG DOV 


ot es Be = Be De ae Pm ee be be he ee he te pe pe pe 





TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30( 1046) 
1S-JUL-77 12:S2 PUBL ISH 


;ERATION CIF 16. 
sIT rye 
SIFICATION AND THE ACTUAL TIME . 


PUBLISH: 
JSR PC, . SAVE - 
hove serine af 
. 3 
CLR RS 
CHPB Os«a816.,R1 
BEQ 1§ 

HALT 
BR 

1S: ADD (RO)+,R2 
ADC R3 
DEC R 
BNE 1 

2s: MOV #4, RO 

38: ASR R3 
ROK R2 
DEC RO 
BNE 3 
MOV , @SATIME 

4§: MOVB ata 
ASL 
MOV NAMPTR(RO) , SS 

ss: ‘WROD O 
MOVE a@8TSTNUM.R2 
JSR PC, oUTSPC 
ISR PC, . RESTORE 
RTS PC 
.SBTTL 

;SUBROUTINE TO GET TTY I 

: pate IS RETO 

INPUT: MOV RO, -(SP) 

is: MOV 8 NBUF , RO 

2s: TSTB = 3 TKS 

BPL 2 

MOVB asTKB,-(SP) 

IC , (SP) 
8177, (SP) 

BNE 3s 

CMPB (RO), (SP)+ 

TYPE , BKSLSH 


ITERATIONS) AND PLACES THE AVERAGE IN 
OF THE FUNCTION THAT WAS TIMED, THE TIME SPEC- 


1S-JUL-77 12:55 PAGE 43 
SUBROUTINE 


RESULT "ATIME’. 


GISTERS ON THE ST 


a eae ERIAIEME DR cour 


BRANCH IF SINGLE ITERATION 
CLEAR *SUM’ REGISTERS 
;BRANCH IF 16. ITERATIONS 
2 Syste COUNT MUST BE 1 
iDEN nor ore i (ort OF sul 


;SUM INDIVIDUAL TIMES 


;GET TEST # 
;GET TEST NAME STRING ADDRESS 


; TIMES 
;RESTORE REGISTERS FROM THE STACK 


N BUFFER BEGINNING AT INBUF. 
;SAVE RO ON THE STACK 


;GET CHARACTER 
;CHECK RUBOUT 
;REMOVE CHARACTER FROM INPUT 


SEQ 0043 


Pan Same Gee Pe Gen Gees Gee Hae me 


RSPR RA tate Riri eR : 


Ae fe Gee Bs Ros bon eb 2 0 Pm be en te = fe tee 


ae 


GO4 
NACYLL SOLOW) 1S-JU.-77 12:55 PAGE 44 SEQ O44 


; 
2 
NA 
3 
g 
8 


2 
in 
F 
fp 
8 





000762 BR 25 ;WAIT FOR NEXT CHARACTER 
& 000025 3S: fe SCNTRLU, (SP) :CHECK CONTROL U (fU) 
S SP)+ 
001374 TYPE, CRLF 
1 BR 1S 
111 001401 4S: ne (3) pe 
(SP). (RO)+ 
000015 , (SP)+ 
I BEQ cs 
000004 001401 TYPE, ECHO 
Bio coi ss; Ae, 
1 MOV (SP)+,RO 
000207 RTS PC 
KEYBOARD I ICE ROUTI 
903608 113746 177562 TKISR: MOVB - UTKBe Cos GET TYPED CHARACTER 
1 2716 000200 BIC #200, (SP) -STRIP PARITY BIT 
ins 000017 cee #CNTRL 0,(SP) | ;BRANCH IF NOT CONTROL 0 (tO) 
of 176475 MOVB {8p +, SCNTRLO ;SET CONTROL 0 INDICATOR IN TYPE ROUTINE 
pooo002 RTI EXIT 
003632 tBio6s 000003 1S: cee 83, (SP)+ BRANCH IF NOT CONTROL C (tC) 
0036 RESET 
003642 000137 005724 IMP asINIT ;RESTART PROGRAM 
00364 o00002 2s: RTI tEXIT 
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1806 .SBTTL ERROR SERVICE ROUTINES 
1807 “ROUTINE TO PROCESS ERROR TRAPS (TRAPS TO 4) 
i 003650 000000 ERRTRP: HALT 
181 ; SERVICE ROUTI 
181 Htnrs Ro Proteases TWO TYPES OF ERRORS OF HARDWARE ) 
181 j THE CALLS FOR AM OUT OF RANGE ARE <HLT+1>,<HLT+2> AND, FOR A 
| 13 : ERROR CALL IS <HLT>. 
; 1S 176118 -HLT: JSR PC, CKSWR ; CHECK FOR CNTL G nar eee 
1gi$ bories 1S: AOCB 2 G Sry ROR FLAG 
: 1 175104 BIT #SH13, ‘BRANCH IF NO TYPOUT 
i 14135 FYE, E.HOR 
1 1122 MOVE’  a@8TSTNUM, Re GET TEST 8 
1 176716 ISR Pc, TyPoct AND TYPE IT 
1 1 MOV 1gtsP),RO : Pe 
1 SUB RO : OF HLT CALL 
i MOVB (RO), RO NOW HLT CALL ITSELF 
BEQ 2s : IF HLT 
1 TYPE ,E. HORE 
ie cree #2, RO ;BRANCH IF NOT HLT+2 
1g JSR PC, OUTGAP TYPE GAP SPECIFIED TIMES 
i : BR ECR 
16 ISR PC, OUTSPC ;TYPE SPECIFIED TIMES 
1 TYPE, CRLF 
my 
MOV (RS), RO 
1837 BIT #PE1600, TC(RS) 
re Ri lei, 
184C BR 21$ 
1 BIC #102300, RO 
{ BRE be 
1 PYPE,E.SFT™ ;TYPE SOFT ERROR MESSAGE 
: BR & 
1 TYPE, E.HDRI 
1 MOV RS, RO GET FIRST ADDRESS OF REGS. 
1 MOV #7, RI TYPE FIRST 7 REGS. 
1 MOV (ROS+, Re *GET REG CONTENTS 
1851 TR spares Pact AND TYPE IT 
1 DEC” RI 
i BNE a 
MOV (RS) Re ;GET CONTENTS OF TC REGISTER 
1: JSR ___ PC, TYPOCT 
if WE, CaP 
if IT , aSWR BRANCH IF NO RING THE BELL 
le 4 








DZTUG-8 
DZTUGB.P11 
1863 O19 10001 174670 


E an e eR 


6S: 


ERROR SERVICE ROUTINES 


TST aSWR 
BPL 63 

HALT 

138 BE: , Kee FORE 


;CHECK F 


yaa 6 RIS Ye FUME TION TIMER MACY11 30(1046) 15-JUL-77 12:55 PAGE 46 


Ree Oke” REGISTERS FROM THE STACK 
: RETURN 


SEQ 0046 


DZTUG-B 
Se 


grt 


iB 





ST 
Beles 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 
191 
191 
191 
191 
1914 
aie 
1317 
191 
19 
1 

1 

1 
19s 





TNO2/TE16 DRIVE nye rion TIMER 
15-JUL-77 1 


ee 
“ 
=——7 


oor obs 





aed 
1121 
174456 


1 
1 


001122 


174614 


001014 
174520 
001121 


174474 


MACY11 30( 1046) 


1S-JUL-77 12:SS PAGE 47 
SUBROUTINE 


SCOPE SUBROUTINE 
UPON COMPLETION OF EACH SUBTEST 
SPEC ON cant ITERATION IF SWO8 IS SET 


IF Swi4 


SEQ 0047 


AND i. TIERATIONS COMPLETE CONTINUES 


ae IF silte0 Fon SFUNCTION IN TIME TABLE (ATIMTBL) 


CONTINUING OR OR REPER iN TEST. 


T 


10S: 


1S: 


& 


SERSSuuE SETS 


—+ 
45 
o 


agRBSRaPyRnagaEe anes 


Bee 
z 


sgee 
E 


be 


6. , a8ITCNT 


apEseg gue 
5 Pe 
i ee 


= 
5 3 
qe 


SATIME, ATIMTBL (RO) 
TCNT’ 


OF TMO2 REGISTERS (ADDRESS OF CS1) 


;ADDRESS OF ’DS’ REG IS IN Rl 
;ADDRESS OF ’FC’ REG IS IN RO 


;BRANCH IF ERROR FLAG IS SET 


;GET I TION COUNT 

;STORE TIME IN TABLE 

; INCREMENT ITERATION COUNT 

;BRANCH IF SINGLE ITERATION DESIRED 
;BRANCH IF ITERATIONS INCOMPLETE 


;SET SCOPE ADDRESS TO NEXT TEST 
BRANCH IF NO PUBLICATION DESIRED 


SOE T TTEHATTON COUN 

TERATION COUNT 

; BRANCH IF USER DOES NOT WANT TO 
T ON_A CTED TEST 


T 
iTS at er 8 
;FORM TEST & - 
{BRANCH IF NOT AT TEST 
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HALT 
135 aiae nities 175416 ISR PC, CKSWR CHECK FOR CNTL G 
0043S2 000705 BR 1S 
.SBTTL TIMER SUBROUTINES 
NE T IZE THE TIMER 
i REET STER 1g SPARED” THE Tee aon A POLITY IS MONITORED 
: THE ROUTINE IS EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH R3 
jSET TO INDICATE THE ITY OF THE OSCILLAT ee 
: ISR pct MON 
RE Ra’SeT TO INDICATE LAST POLARITY (+24/-24=0/1) 
TIMON: RY 
ppasee eae 000024 #24,R3 PB LARTTY 10.’ 9’ STATE 
rte T 80st, PR(RS) BRANCH IF POLARITY I 
1S: BI #OSC, MR(RS) ;WAIT FOR OSCILLATOR TO RETURN 
am 001374 BNE 1$ 
00040s BR 4§ 
pou 905403 2s: NEG R3 NEGATE PREV POLARITY INDICATOR 
000100 oo0024 35: BIT 80SC, MR(RS) WAIT FOR OSCILLATOR TO RETURN 
004414 001774 BEQ 3s TO ’1’ STATE 
004416 000207 RTS 


AOE BRCILLATOR TOGGLES (BIT <06> IN MR REG) REGISTER 
t HE OSCILLATOR. 


if The Lasts IS NEGATED TO INDICATE 
A to osc 
;R3 IS SET BY TIMON ROUTINE 


tore i ata oR TOTS ROUTINE IS VERY CRITICAL. IT MUST BE 


LESS THAN 
VIA JMP TIMER(R3) WHEN R3e-24_ (PRE (PREV STA 
000100 ocoo024 finch: Bit #0SC,MR(RS) F ie STATE IS ’0’ 
BEQ rach EO ING 
(R2) * RETURN 
. =TIMER1+24 
TIMER: NEG R3 ;NEGATE PREV STATE INDICATOR 
NC RY *TICK’ COUNT 
I TIMERR : Ol 
(R2) ;RETURN TO TEST 
014246 TIMERR: TYPE ,E. TIMOV ioe NRE Cheon 
174314 IMP @SCPADR *RETURN TO BEGINNING OF TEST 


.=TIMER+24 
: a, VIA JMP_ TIMER(R3) WHEN R3=+24 (PREV STATE=0) 
000100 000024 tineRD: oe aOsc, MARS) ; BRANCH 1P CURRENT STATE = °1’ 


JMP (Re) 





a 


PRERERRRRRE TSS SS Hors cubi a un RP SRS ets c Minin tas syle 


3 
“a 


& DRIVE FUNCTION TIMER 
-JUL-77 12:Se 


a 
fe 
bee 


THis Suah0 TO CHECK TIME RECORDED BY 


RT 
TMK: JSR PC, . SAVE 
MOV #56. , RO 
MOV RY, RI 
CLR Re 
CLR R3 
1S: ADD RO, Re 
ADC R3 
DEC R1 
BNE te} 
MOV , 7 (SP) 
MOV R3, -(SP) 
MOV #10. .-(SP) 
JSR PC, OfvIDE 
TST (SP)+ 
MOV (SP)+, S8ATIME 
MOVB  @8TSTAUM,RO 
ASL RO 
ASL 
001416 CMP ISATIME, STIMTBL(RO) 
001420 ts SSoTIME,STIMTBL#2(RO) 
BHI 3$ 
2: HLT+1 
ISR PC, .RESTORE 
RTS pC’ 


SUBROUTINE. CO 


















it 

tL OTIMTaL +2 

$ : MOV 

$ MOVB HE 

: JSR PC, 
2028 00461 GAPOK: 
= mea 
ak mov = RY, RL 
x ae R2 
1S: abd Rd, Re 
Soa? GONESe BeOS 





wed oe 1S-JUL-77 12:55 PAGE 49 


SUBTEST. 
NE COMPUTES THE ACTUAL TIME (I Sy ag sats) 
CORREC 


en an 


SE@ 0049 


) AND CHECK 
iu COMPARING 
T ont sei). 


;SAVE_REGI ON THE STACK 
;GET TIME 

3GET TICKS 

;CLEAR SUMMING REGISTERS 
sATIALY TIME PER TICK 

sBY TICK 


;DIVIDE COUNT BY 10. 


DISCARD REMAINDER 

: STORE QUOTIENT 

GET TEST 8 

3 CHECK THAT TIME IS WITHIN 
;LIMITS SPECIFIED 

;CALL ERROR ROUTINE 

;RESTORE REGISTERS FROM THE STACK 

; RETURN 


ROTI G8 THES, (eRaCUESRS EY HO GEES 


;R4 CONTAINS TICK COUNT 
;LOCATION GAP CONTAINS GAP # 


: WtTH TH TSE RD) sh esi anh THe MIN Lit unr 


erie ee tie 


‘CLEAR "Smite. REGISTERS 


;MULTIPLY TICK COUNT 
;BY TIME PER TICK 
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R3 ;10 GET _AT TABLE ENTRY 
SATIME , GTIMTBL(R3) ;CHECK TIME (MAX) 


St Ae ;CHECK TIME (MIN) 


nay Be. -( ;DIVIDE TIME BY 10. 
#10. ,.-(SP) 
ee 
nov 3} ssorne STORE QUOTIENT 
MOVB gucrP,R3 
is jor nie 
or 
I 
HLT+2 i ;REPORT OUT OF RANGE ERROR 
BIT #SH0B, @SHR ;BRANCH IF TIMES NOT WANTED 
ISR PC, OUTGAP TYPE GAP TIMES 
ISR PC, . RESTORE ;RESTORE REGISTERS FROM THE STACK 
RTS PC ;RETURN TO TEST 





.SBTTL DELAY SUBROUTINES 
; THIS SUBROUTINE CAUSES A DELAY OF 350 MS. 


BELAY: JSR PC, TINON eal 
oe Nov Ss oe ey AE TURN ADDRESS FOR TIMER 
. IMP TIMER(R3) ‘360 TO TIMER & RETURN VIA Re 
2s: BIT #4000, R4 
BEQ 1s. 
(SP)+,Re RESTORE R2 
RTS PC 
;THIS SUBROUTINE ALLOWS A CALLER SPECIFIED DELAY (UP TO GSMS.) 
*CALL: HOY DeLay TIME, DELTIM sLOAD DELAY TIME (IN US) 
: J DELAYV 
beLayv: TST DELTIM BRANCH IF 0 DELAY 
hie Be, T1NoN TURN TIMER ON 
MOV Re, (SP) SAVE Re ON THE STACK 
a MOV #2$,,R2 SET RETURN ADDRESS FROM TIMER 
‘ IMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
2s: CHP SDELTIN, RY 
MOV (3+, Re RESTORE R2 
3S: RTS 


OZTUG-B TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 1S-JUL-77 12:55 PAGE SI SEQ 0051 
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OZTUGS. P11 15-JUL-77 12:Se 


Be 
eT 
tur 


a 





¢ ARB PRB ESP? 
; RETURN 
: = Sepaseuottent © S79" 


;NOTE: THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF RO,R1,Re & R3. 


— Foy ai? csp) ET eee TON COURT 
12(SP) RI GET LSH DIVIDEND 
Roy btSP) Ae gt Bee 
c CLEAR °C’ BIT IN PSW 

1S: ROL i sROTATE. SH DIVIDEND 

"9 REN UBB ONN IR? 
2S: ROL Ri’ forage 

DEC (SP) A OTD ON COUNT 

Poe aaa 

HOV RO,4(SF 2, ‘PUSH QUOTIENT ONTO" oT Rick 


SRT EEO TEE BURY TE 0 om 


;BRANCH IF NO EOT 
‘REUT "END OF TAPE’ 


ou330 


iB 005114 000207 RTS PC 
1 .SBTTL DRIVE SUBROUTI 
le ;SUBROUTINE TO CHECK IF DRIVE IS AVAILABLE 
2127 ;CALL: MOVE DRIVES, ORVNUM 
1 JSR jORVAVA 
1 * RETURN: 6! BIT SEL IF NOT AVAI 
130 005116 113765 001004 000010 ORVAVA: MOVB = a80RVNUN.CS2(RS ;LOAD DRIVE 8 
2131 O0S5ie% 032765 O40000 000026 BIT TAP, DT(RS) :CHECK IF TAPE UNIT 
abs pet i 000034 ae , RHINIT 
2134 005140 000262 SEV ;SET ’V’ TO IND NOT AVAIL 
1 005142 000207 1S: RTS PC : RETURN 
1 ; SUBROUTINE TO CHECK IF TE16 SLAVE IS AVAI 
1 ‘CALL: MOVB DRIVE 8, aS80RVNUM sPASS Fane 8 era DRVNUM 
5139 ; HOVE 8. J8SLVNUM as Be war SL VNUM 
iat SLVAVA: seve 3 +CS2(RS) tet 
aR gr HP DTS) {BtadH Sve meso 
14S ;SET *V’ TO INDICATE NO SLAVE 
is 18: PC 
2148 ;SUBROUTINE TO INITIALIZE RH CONTROLLER 
gi43 CALL: JSR PC,RHINIT 
1 RHINIT: MOV CS2(RS) 
aes MOVB SAV (RS) 
1 CLR -(SP) 
2154 MOVE § @8SLVNUM, (SP) 
2155 MOV (SP)+. TCERS) ;LOAD SLAVE # INTO TC REG 
HE BIS sNORMI1, TCCRS) 
1 PC 
138 «SUBROUTINE TO WAIT FOR DRIVE READY (DRY) 
2160 WAITROY:CLR (PC)+ CLEAR WAIT TIMER 
sits 1S: ‘tee Bscrs) ;WAIT FOR READY TO SET 
164 INC WAITTIN 
ate BNE = is feranch Tr IF wile tes NOT EXPIRED RED ay 
sib BR cs. a iT Bt 
168 2s: BIT 8E0T,DS(RS) >CHECK FOR END OF TAPE 
B 
i 
1 
1 
174 
atm 
1 
21 
2178 





PC, . REWIND REWIND 
99 : BRANCH BRANCH. TF ERROR ON REWIND 
PC, WRITE WRITE A RECORD 
TNC (RS) SET 'GO’ BIT 
SR PC. WAITRDY WAIT FOR 
93s i TAKE ERROR EX 
3s BIT ERR, DS(RS) “CHECK ERROR EXIT 





COS 


pers este 6 RING a 34 ION TIMER reves A UE aaa 12:55 PAGE S3 


SE@ 0053 


air Pi 


at 


it res 5 Sea TIMER ret pyre _iu-7? is PAGE S4 


; SUBROUTINE TO REWIND A UNIT (DRIVE/SLAVE COMBINATION) 
:CALL MOVE DRIVE #,a8DRVNUM 


SEQ O0S4 


EOS 
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2185 ; MOVB = SLAVE_ 8. a8SLVNUN 

2186 : JSR PC, .REWIND 


Ne RETURNS TO CALLER WITH SELECTED SLAVE AT ’BOT’, & ’V’ SET IF 


2190 005336 004767 177632 - REWIND: JSR PC, RHINIT ; INITIALIZE CONTROLLER 


frururu: 
pos bes be 
ere 
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JSR R3, THCMD GO TO TM COMMAND SUBROUTINE 
.WORD O io cant T uD) 
OR 5 ; (NOT ) 
.WORD RMD jREWIND COFMAND 
inc (RS) *SET 'GO’ BIT 

1S BIT S80T DSRS) : IF *BOT’ SET 
BIT SERR, OS(RS) ;CHECK ERROR BIT 
BNE 995 ‘BRANCH IF ERROR BIT SET 
BR is 

2s: BIT se IP, DS(RS) ;WAIT FOR TAPE MOTION TO STOP 
BR 100s 
SEV 

i00$: RTS PC 

; SUBROUTINE TO WRITE WORD RECORD 

RUT ee tRite 

WRITE: JSR TNCMD -GO TO ™ SUBROUT INE 
. WORD faur ‘os RoonE ss ‘ 
“WORD  WROCNT : WORD. COUNT 
. WORD FRMCNT 4 COUNT 
ligne WF WD ir Rie FORWARD COMMAND 

; SUBROUTINE TO READ A 256. WORD RECORD 


aun 
ee 
. 


aS EES ig 
WE 
: 





; SUBROUTINE TO INITIATE READ REVERSE COMMAND 
;CALL: JSR PC, 
7 000074 REVRD: JSR R3, THCMD 
‘ -WORD — ROBUF +256. A BUFFER 
“WORD  ROREV : READ 
RTS PC 
1 77777 oo0006 Ff i a sea ERS) heen LOAD RECORD COUNT 
pt 1 boon ” MOV SSPCFWD+1, ( > LOAD 
767 177522 ISR PC, WAITRDY “WAIT FOR READY 
RTS PC ; 
WRI 


jSUBROUT TO WRITE _A_RECORD AND BACK SPACE OVER THE RECORD. 
00SS12 004767 177702 - BK: 18 PC, WRITE ;WRITE THE RECORD 
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15 INC (RS) ;SET ’GO’ BIT 
767 177506 JSR , WAITROY 
000006 MOV 8-1, FC(RS) LOAD RECORD COUNT 
MOV SSPCREV+1, (RS) LORD COMMAND 
JSR PC, WAITROY 
i$: E Pe, DELAY ;WAIT FOR TAPE MOTION TO STOP 
; SUBROUTINE TO LOAD A COMMAND 
CALL: JSR R3 
: (2°S ) 
5 OSE 
TMCMD: MOV aS es) ;L0Re Bite Cont 
nov ( 33° Bet ) ;LOAL T 
MOV (R3)+, (RS) * LOAD COMMAND 
RTS R3 * RE TURN 
;SUBROUTINE TO PRINT TE16 SERIAL NUMBER 
-JSR PC, SNPT 
SNPT: MOV SN(RS) RB 
MOV sODIGITS, Ri 
SWAB OO 
ROR R3 
ROR R3 
ROR 
ROR R3 ;GET FIRST DIGIT 
177760 BIC $177760,R3 
av R3 Ane FILL FIRST DIGIT 
000030 eve SHS), , 
honeen aig tea Ra 
MOVB RG, (R1)+ ;GET SECOND DIGIT 
000030 MOV SNURS) ,R3 
ROR R3 
ROR 
ROR R3 
ROR R3 
177760 BIC #177760, R3 
000260 BIS #260 R3 
nove (R1)+ ;GET THIRD DIGIT 
000030 SNUIRS).R3 
177760 BIC 8177760,R3 
000260 BIS AS 
nove Ra (RL) + ;GET FOURTH DIGIT 
001144 TYPE, ODIGITS ; TYPE SERIAL NUMBER 
RTS PC : RETURN 


HOS 
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er .SBTTL PROGRAM INITIALIZATION 
INIT: MOV 8STKPTR, SP ;SET STACK PTR 
SUSWR: HOV at6, -( ;SAVE VECTORS 
MOV 9618. 384 -SET UP FOR TIMEOUT 
Cie 8-1, 2SWR REFERENCE HARDWARE SWITCH REGISTER 
BR 
61S: CMP (SP)+. (SP)+ ADI ACK 
605: MOV aSureé Be POINT 18. SOFTWARE SWITCH REG 
625: HOV i+, a RESTORE VECTORS 
CMP ba 
BNE 64S 
ISR PC 
os: Ost EE NN PTO TON” COUNT 
CLRB Stern A aietth #0 
are ere scene Ak FUG 
MOV C+2, IHERRVEC 
an ne BATT SHERRVEC+E ;CHECK IF ’LP’ IS AVAILABLE 
Tire cae TYPE TI 
Jone be. INPUT rr IN . 
4g: ISR PC’ CNVTAO : ASCII TO OCTAL 
a HOV guicr » BaTMBASE >SET NEW ADDRESS 
sROUTINE TO CHECK IF CONTROLLER (RH11) IS AVAILAABLE 
C SET °C’ IN PSW 
rst (Rs) ‘BRANCH IF CONTROLLER AVAIL 
TYPE, E..NCON 


BR INIT 
6S: MOV SERRTRP , J#ERRVEC ;SET ERROR TRAP VECTOR 











OZTUG-B 
OZTUGB.P11 


perrercenrrcn 
C Renee 5 





y 
= b= 


bd 
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001123 


001154 


014014 





INITIALIZATION 
;ROUTINE TO GET TMOe 1 USER DESIRES TO TEST 


DRIVES: CLRe oORVTBL RI rca Oe ee ac Not 1 
ov 4.R0 : AY58- "Fw icates 
1S: fee o itt 8 DRIVE IS NOT TO BE 
1 
TYPE, I. DRVS : = : 
ye Sate ho =o 
CMPB sé’ A, (RO) : Seve ies fo iesreh" 
BNE 
MOV SOAVTEL Ri ao es 
a z eae. nt Fine 
2s: HOV -1, (R1)+ 
Be GO CHECK DRIVE AVAILABILITY 
get USER SELECTED. DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 
F ene CHKORV 
CMPB 3s« (RD), 8’, CHECK IF *COMMA’ 
- r3 8 (RO) ss STEP PTR PAST *COMMA’ 
: BIC $177770,R1 
MOVB 8-1, DRVTBL(R1) 
NOP 
BR 3S 
ASCERTAIN THAT DRIVES (TMO2’S) SPECIFIED ARE AVAILABLE 
: CLR RO A O/-1 INDICATES THAT THE 
iS: TSTB = ORVTBL(RO) DRIVE IS NOT/IS TO BE TESTED 
2s: ae fd 
CMPB ,RO 
. BNE 1$ 
BR 4g 
3S: MOVB RO, @#ORVNUM 
JSR PC; J8ORVAVA CHECK IF AVAILABLE 
a . ry :*¥" BIT SET INDICATES NOT AVAIL 
* DIGTAB(RO) , a#E. NAVA ;SET DRIVE # IN MESSAGE 
TYPE, E.NAVA 
MOVE’ SP, a8ERFLG "ERROR" FLAG 
a (RO) Ree UNAVATLABLE 
Bt 
4g: STB SERFLG CO Ky SLAVES IF NO ERROR 
at SSPREEL iG -ASK USER T DRIVES IF 
BEQ IVES >"ALL’ NOT SOP EIFIED 


“ROUTINE TO GET SLAVES (TE16’S) USER DESIRES TO TEST 
SLAVES: CLRB a8ERFLG “CLEAR 'ERROR’ FLAG 


SE@ 0059 








“uo 





DROSS ERE SA: CARRS EMRE RRR Sea ee Toe SSEIRS ORES : 
NOU EWU 
tcfafeafa? atitateatatle Pe : 
+ 
t mil Mla trial reared i 
+) A tittd 


TMO2/TE16 DRIVE FUNCTION TIMER 
ll l2:Se 


1S-JUL-77 





: 
bse 


Re 


— 
8 


= RR 


001164 
000040 


013524 


MACY11 3011046) 
PROGRAM INITIAL 
MOV 
1s MOV 
2s: TSTB 
BNE 
3s: ADD 
INC 
CMPB 
BNE 
BR 
4§: TSTB 
nae 
TYPE, I. 
JSR 
MOV 
CMPB 
BNE 
MOVB 
Ss: MOV 
MOV 
6S: MOV 
DEC 
BNE 
TSTB 
BNE 
7$: CMPB 
BEQ 
CMPB 
BNE 
TSTB 
8S MOVB 
BIC 
ADD 
MOVB 
BR 
-ASCERTAIN THAT 
GHKSLV: CLR 
CLR 
MOV 
1S: TSTB 
BNE 
2s: INC 
ADD 
CMP 
BNE 
BR 


15-JUL-77 12:55 PAGE 60 
IZATION , 

aan Oe nes are 
a4 3A Obivere SLAVE 18 Ber TD BE 
RD : TESTED 

: VE SF 

RO VTBL.RI RD Botnte To DRive’s SLAVE 
DRVTBL (RO) -IF ORI T TESTED 

#2. ,Ri :S NEXT DRIVE’S 
RO DRIVE # 
88. ,RO GEC a ALL 

CHKSLV SHEN att Ores AVETLABIL ITY 
QPRGFLG ones IF USER SELECTED ALL 
A tetas CRO) , O81. DRV ice Daave USER ACTION MESSAGE 
PC, . INPUT 

SINBUF RB Fa Heer Nee USER INPUT 

g.A, (RD) BRANCH IF USER DOES NOT WANT 
SP, J8PRGFLG et ‘cL’ INDICATOR 

asi VTBL,RI *MARK ALL SLAVES FOR ALL 

#32. RO “DRIVES AS TO BE TESTED 

#-1, tRID+ 

es 

@SPRGFLG ;BRANCH IF ALL WAS SELECTED 
CHKSLV 

BCR, (R3) iGET USER SELECTED SLAVES FOR 
(R3),8", *STEP PTR PAST COMMA’ 

(R3)+ 

(R3)+,R4 ;AND_MARK SELECED SLAVE 
#177770, R4 AS TO BE TESTED 

R1,R4 

#-1, (RY) 

7$ 

SLAVES (TE16’S) SELECTED ARE AVAILABLE 

RO ;RO WILL CONTAIN THE DRIVE # 
Ri : AND RI THe 

sSLVTBL Re :SET 

ee ati 

RO : INCREMENT 

a8. , Re -STEP SLAVE 

te DRIVES 

7$ 










KOS 





DZTUG-B TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 15-JUL-77 12:55 PAGE 61 SEQ 0061 
DZTUGB.P11 15-JUL-77 12:S2 PROGRAM INITIALIZATION 
eis 00s001 3S: CLR Ri SET SLAVE # 0 
Site 4g: TSTB. ss: (R) ; BRANCH F DRIVE’S SLAVE IS SEL- 
14 SS: ite it ith 
fee70i 000010 cre 88. ,RL ion PPR TO NEXT SLAVE 
000760 BR 2g + OTHERNISE GO TO 2$ ABOVE 
110037 001004 6S: MOVB —«RO, @8DRVNUM PASS DRIVE & SLAVE 8 
Se poste SR BAe Seat yavA CK IF AVA 
Sip reds Bee Ee ie al K HF ON Re TUR 
11 001132 014004 MOVB DIGTAB(RO) , a8E DRY TOaTeS,cRROR 
SOL 136 014014 MOVB GTAB(R1),a8—. NAVA 
ate eee SAERFLG TOR 
ee {408% CRs | tRBD BEER Crave TABLE ENTRY 
73 000747 BR cs *GET NEXT SLAVE 
re 001123 7S: TSTB @SERFLG BRANCH IF NO ERROR 
001124 S CORGFLG sBRANCH IF NOT ’ALL’ 
1616 BEQ * ASK TO RETYPE SLAVES 
12737 003650 000004 1100S: MOV SERRTRP, JVERRVEC 
SCAN DIVE AND TABLE FOR DRIVE/ COMBINATION TO TEST 
742 105037 001004 CLRB SAN EEy DRI 80 
105037 001005 CLRB asSLVNUM 
906 012737 001164 001006 MOV SL @aSLVPTR SET PTR TO SLAVE TABLE 
i 0011 CLRB a ‘CLEAR ’UNIT FOUND’ IND. 
006764 113700 001004 BEGIN: MOVB § @8DRVNUM,RO GET DRIVE 8 
a 006770 113701 001005 MOVB §3#SLVNUM'R1 “AND SLAVE # 





LOS 





AL a all 6 at oo TIMER peeyds a 112) | at 7? 12:55 PAGE 62 SEQ 0062 
013702 001006 MOV @sSLVPTR, Re ;GET SLAVE PTR 
001154 18: na “eo panes: IF DRIVE AVAIL TO TEST 
i. ss: it Ro’ 186 ST ap RSET BENE 
000010 ae »RO aoe TEST _IF ALL DRIVES 


ie 
uae 
Se 
= 
Si 
7 
ma 


012732 






88 
iat 6 
Q 
rr 
a 
=~ 
a: 
= 
cad 
ag 
Es 
Fs 
in 





Sci BNE STEP 
' INC Re ;PTR TO 
1 pooo10 te (a. eT TN SLAVES CHECKED 
: 1 BNE 3s’ + WHEN at Sp hVES CHECKED 
505 1 CLR sR 'SET SLAVE § 0 
SDE 1 BR 25 tAND CONTINUE SCAN 
110837 001125 4g MOVB SP, @SUNTFND SINDICATE THAT A ’UNIT’ IS FOUND 
110037 001004 MOVE RO, a#DRVNUM :SET DRIVE 3 


DZTUG-B TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 
OZTUGB.P11 PROGRAM 


i 
2512 


1S-JUL-77 12:S2 

di823? Soi00e 
001130 
000001 
001124 


ae 


S$: 
172022 


=o Pan P= fn Phan fae Penh Gee 


SESKESSi StS 






6S: 


aa ee 


Ct ee a 


+4 ob + + +++ 
ArAy At At A: 4 

R 

-— 

Gs) 


i & 


3 





1S: 


1S-JUL-77 12:55 PAGE 63 SEQ 0063 


INITIALIZATION 
MOVB 1, a8SLVNUM ;SET SLAVE # 
MOV R2, J8SLVPTR :SAVE SLAVE PTR 
mR ifs 
#1, ASFLG 
CLRB  —_38PRGFLG ;CLEAR PROGRAM INDICATOR 
TYEE, 1. SKE aout > ASK USER JF HE WANTS, 10 RUN SKEW TESTS 
MOV STNBUF .R3 : Y 
cre sor cRS) GET REPLY ’NO’ (0) 
CHPB sa’, (RB) sCHECK IF *YES’ (1) 
BNE 5$ *NEITHER SO ASK AGAIN 
HOVE {R3) , @8PRGFLG *SET INDICATOR 
CLRB _—s« 98NRZFLG ;CLEAR_NRZ_ INDICATOR 
Jee BS pur ASK USER JF ER INDUy 
MOV SINBUF .R3 : Y 
cHee $20, (Ra) G57 REPtY "NO’ (0) 
ee gs eS aly Welter 
MOVB = (R3), 98NRZFLG a Papi Caton 
BIS ‘ #100, a8TKS _ SET KEYBOARD IE BIT 
nove’ * DIGTAB(RO) ,@8L. ORV ;SET DRIVE # 
ey BOY SLAVES CHANNEL TYPE 
BI! sci? OT UR) : 
HOVE ; 8’7,38L.CHAN ;SET 7 CHANNEL 
TR eT ;GO PRINT SERIAL NUMBER 
HOV r gTSTOO! , I#SCPADR ;SET *SCOPE’ ADDRESS FOR FIRST TEST 
ADD eFC RO RO CONTAINS ADORESS OF FC REG 
ADO An Rl CONTAINS ADDRESS OF DS REG 
MOV aT R3 “SET JUMP ADDRESS TO TIMER 
ae BPG G ‘BRANCH IF NOT SKEW TESTS 
ie @SSKEWTST 


OZTUG-B TMO2/TE1G DRIVE FUNCTION TIMER MACY11 30( 1046) 
1S-JUL-77 12:S2 START OF TESTS 


OZTUGB.P11 





s TEST ool = RITE Fran Fron BOT a 


NOS 
IS-JUL-77 12:55 PAGE 64 


ACCELERATION DELAY REQUIRED TO 


IRE Tio teMeEPRU"ETeaT E'S toate ane 


iST001:" hove asTSTNUM 
| JSR HO al 
T38 a 
INC (RS) 
1S: TST TC(RS) 
oP MER(R3) 
2s: ISR BC ,HAITROY 
ISR PC, TIMOK 
BR 106s 
HLT 
i00$: SCOPE 
TEST - WRITE START 
“THIS TST MEASURES T 
tsTO002: MOVB = 2, a 
mle 
JSR BS Fe TIMON 
INC (RS) 
1S: TST TC(RS) 
BPL 2s 
IMP TIMER(R3) 
2s JSR PC, WAITRDY 
ae: eee 
BR 100s 
99S: HLT 
100$: SCOPE 
WRI 
ts £3,08TS 
JSR PC’ WRITE 
INC (RS) 
1S: TST (RO) 
BEQ 2s 
BIT #ERR, (R1) 
BNE 995 


a4 FROM ’GO’=1 TO ’ACCL’=0. 
#TSTNUM 


MEASURES TIME FROM ’GO’=1 TO ise 1 =0. 


euie yee mo Te 


G0 Seve ee ON REWIND 
TE COMMAND 


3 
;SET ’GO’ ies" 

;BRANCH WHEN ’ACCL’=0 

;G0 TO TIMER & RETURN VIA Re 


i BRAN FOR 5 Oe TO FINISH 


;G0 CHECK TIME 


;SET_TEST # 2 

: INITIATE WRITE COMMAND 

:SET RETURN PC FROM TIMER 

;SET ’GO’ BIT 

;BRANCH WHEN ’ACCL’=0 

;GO0 TO TIMER & RETURN VIA Re 
WAIT FOR READY 


t BRANCH IF 
560 CHECK TIME RECORDED 
;EXIT VIA SCOPE 


;REPORT ERROR 


; TEST or TE SHUTDOWN 
; THIS TEST MEASURES TIME FROM ’FC REG’=0 TO cd zl. 
TOO3: MOVB TNUM T#3 


;SET_TE 
;INITIA WRITE COMMAND 
;SET ’GO’ BIT 


;BRANCH WHEN WRITING FINISHED 
;MONITOR ERROR BIT 


SEQ 0064 


Suis IT AEG GEITON TE 


7 os were 
S17 007530 





001122 


174512 


teen 


000163 OO4444 

004767 175350 
02403 

004767 174612 


12737 000005 001122 


DATES E RE ROBO ORR Se aR Eoee Som RR eGR eaN Menem see 


SS 2 Sos tue CG fe ae 
an 


38 


O6 


pal on tee Te: apagt 12:55 PAGE 65 


BR 
es: 
nov 
3$: BIT 
BNE 
JMP 
4§: JSR 
ie 
BR 
HLT 
100$: SCOPE 


is 


33 
a 
S 


TOAD RETURN PC FROM TIMER 


BSDWN, (RI) BRANCH WHEN DS <SDWN> SETS 

TIMER(R3) ;GO TO TIMER & RETURN VIA Re 

PC WAITROY ;WAIT FOR READY 

Fe ag THOK GO CHECK TIME RECORDED 
;REPORT ERROR 


‘THIS TEST TIME FROM *SWDN’=1 TO ’SWDN’=0. 
TOO4: MOVB 84, a8TS 
ISR PC’ WRITE 
INC (RS) ;SET ’GO’ BIT 
1S TSI {R0) BRANCH WHEN WRITING FINISHED 
BIT 8ERR, (R1) CHECK ERROR BIT 
BNE 9395 
BR is 
2s: BIT SSDHN, (RL) ;WAIT FOR ASSERTION OF ’SDWN’ 
BIT SERR, (R1) ;MONITOR ERROR BIT 
BNE 995 
BR 2s 
38: 
ISR PC, TIMON ; TIMER ON 
MOV PC’R2 ‘SET RETURN PC FROM TIMER 
BIT BSDHN, (RL) "BRANCH WHEN SWDN CLEARS 
IMP TIMER(R3) GO TO TIMER & RETURN VIA R2 
Ss: JSR PC, WAITRDY ;WAIT FOR READY 
ae ae 
BR 100s 
99S: HLT 
100$: SCOPE 
;TEST O05 - READ FROM BOT 
“THIS TEST MEASURES TIME FROM ’GO’=1 TO ’ACCL’=0. 
TSTOOS: MOVB 85, a8 TSTNUM ;SET TEST 85 
J PC’ . REWIND REWIND SLAVE 
99$ “BRANCH IF ERROR ON REWIND 
ISR PC, READ 
MOV #1$,R2 ;SET RETURN PC FROM TIMER 


SEQ 0065 





Deues-Pli Teeau-v? iseee Stent oF teers: m7 Tes Pee SEQ 0066 


2671 007722 OO4N767 174426 JSR —«- PC, TIMON TURN TIMER ON 
5 007725 005215 INC (RS) “SET 'GO’ BIT 
ees fit 000032 1S TST TC(RS) BRANCH WHEN ’ACCL’ RESETS 
163 OO4444 ‘aa MER(R3) GO TO TIMER & RETURN VIA Re 
Barrie Sodbs toe we = 9 BD eee S BRANCH. TF ERROR 
oo7750 004767 174526 ISR PC A TTHOK CHECK RECORDED TIME 
Bor7eo 1OHODD ious: SCOPE 
i THis SEST MERGURES TIME FROM °GO’=1 TO *ACCL’=0 
ST Ere aan, coe fetta Bane TBE eo scx src 
ieee ve Meat nov ais Re ;SET RETURN PC FROM TIMER 
x: oo ST Go BIT 


;BRANCH WHEN ’ACCL’ RESETS 
;GO0 TO TIMER & RETURN VIA Re 


8 
= 
A 
— 
WF 
a 
+ 
“+ 
oO 
vo 
aR 
Se 





SRSA SSRARRRARRT RARE ER RES AAMAS a dd ddd aa as 
aleie ats 
L: 
8 
Be Bys8 32 
3a 
59 
a 8 


10034 004767 174442 PC, TIMOK 
10040 1 
Sido ios0ee ieee: 
This TEST. Se TORE FROM "FC REG’ TO 'SWON’=1 
ROVE a7, auTeTNOn ret fest #7 ae 
JSR PC WRT. BK * WRI RECORD & BACK SPACE 
BVs 99 : IF ERROR 
175350 J PC, READ 
INC (RS) ;SET 'GO’ BIT 
a 740 000400 1S CMP 8-FRNCNT, (RO) ;WAIT FOR FRAME COUNT TO 
r 1 BQ té«ésSS t= § OF FRAMES WRITTEN 
1 14 ovo000 BIT SERR, (R1) ‘MONITOR ERROR BI 
101 10 BNE 995 
101 1 BR is 
101 2s: 
10106 O04 174242 JSR —- PC, TIMON ; TURN TIMER ON 
1 + MOV R2 ‘SET RETURN PC FROM TIMER 
1 1i oo0ce0 BIT , (RL) BRANCH WHEN SDWN SET 
010120 oo100e2 BNE 3s 


beTUee Pil 


= 22eee2 
2 NFISLE 


Ke ee 


Qoo0o000 eoooo ooo00o 
Ss eee = Ooo00000 
fee ee ew 


oo000 
es 


i 
ol 


oO 
= 


Boe SD 


8 
<£ 


a 
A 
i 
- 


PEE RERERBRERROMH Gt TAREE RERPEREP ONS 


Bet bos Bee Be he ee 


yee s aa TIMER peed! goC ete) 1S-JUL-77 12:55 PAGE 67 


000163 


175100 
174342 


SEQ 0067 


IMP TIMER(R3) GO TO TIMER & RETURN VIA R2 
38: ie WAITRDY 
TIMOK 
AR 100s 
298: aT REPORT ERROR 
Tes Fer TIME FROM ’SWDN’=1 TO ’SWON’=0. 
001122 STOO: Move #10, 9aTSTNUM SET TEST #10 
fe Pet fe A SE UR coMD BB & BACK Back SPACE 
ISR PC, READ 
INC (RS) ;SET ’GO’ BIT 
1S: TSTB (Ru) sWAIT FOR READY 
BIT ERR, (RI) *CHECK ERROR BIT 
BR is 
2s: BIT BSDHN, (RI) WAIT FOR ASSERTION OF ’SDWN’ 
By BERR, (RL) ;MONITOR ERROR BIT 
BR ey 
38: 
JSR PC, TIMON ;TURN TIMER ON 
000012 4S: BIT SSDHN, DS(RS) :WAIT FOR NEGATION OF SDWN 
IMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
cS: ISR PC .WAITRDY 
ae os TIMOK 
GR 100s 
HLT 
i00$: SCOPE 
sTEST O11 1-READ 
THIS ine Fron 'GO’=1 TO ’ACCL’=0. 
oo1122 tsTOll: ail, 1,38 TNUM 
1S) Re SET RETURN PC FROM TIMER 
4 & 2, Paseo Mey a de 
BVS 99 
ISR PC, DELAY ;WAIT FOR TAPE MOTION TO STOP 





OZTUG-8 TMO2/TE16 DRIVE FUNCTION TIMER MACY11 3011046) 15-JUL-77 12:55 PAGE 68 
OZTUGS.Pil = 1 Loy? esse SraRt oF Tests SEQ 0068 





010324 004767 174024 ISR PC, TIMON ; TURN TIMER ON 
2764 010330 o0S21S INC (RS) :SET 'GO’ BIT 
Rifas PReaRs O0cese wicca ore parmgeen teagan: 
010340 000163 cove IMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
1 7 174662 2s JSR PC, WAITRDY 
1 1 BVS 99¢ ;BRANCH IF ERROR 
1 767 174124 ISR PC, TIMOK 
1 1 BR 100s 
ot 1 99S: HLT 
r 1 i00$: SCOPE 
; TEST 
THIS "FC REG’ = FRAME COUNT TO ’SDWN’=1. 
10364 112737 o000012 Odl122 tsTOle: Rove 812,08 
10372 012702 O1 MOV 83$,R2 SET RETURN PC FROM TIMER 
1 767 175016 ISR PC, WRITE WRITE A RECORD 
1 ; NC (RS) SET G60’ BIT 
i , 174622 SR PC HAITROY 
1 ie 767 175036 be PC, REVRD 
1 is INC (RS) ;SET 'GO’ BIT 
1 730 000400 1S CMP 8-FRNCNT, (RO) : FRAME COUNT 
1 BEQ = 8 OF RE WRITTEN 
i 7H 040000 BIT ERR, (RI) ‘MONITOR ERROR BIT IN ’DS’ REG 
10434 Boars BR is 
1 2s: 
1 %7 173712 JSR PC, TIMON TURN TIMER ON 
i 7 000020 3S: BIT BS0uN, (RL) : WHEN SDWN SETS 
O104SO 000163 oO4444 JMP TIMER(R3) ;GO TO TIMER 8 RETURN VIA Re 
1045 767 174552 4S: JSR PC, WAITRDY ;WAIT FOR READY 
loves 174014 ae a8 TIMOK 
10464 1 BR 1600S 
010470 104400 995: HLT 
010472 104000 100$: SCOPE 
Tage SERRE Are 
‘THIS TEST ME FROM ’SDWN’=1 TO ’SDWN’=0. 
10474 112737 000013 O01122 ‘STO13: MOVB %13,a8TSTNUM 
1 e70e 0 MOV 84S Re RETURN PC FROM TIMER 
1 1 JSR PC, WRITE ITE A RECORD 
1051 is INC (RS) it *G0’ BIT 
! 4 004767 174512 ISR PC HAITROY 
1 hitesd 174726 ISR PC, REVRD 
10526 005215 INC (RS) ;SET ’GO’ BIT 


OZTUG-8 TNO2/TEI6 rete} FUNCTION TIMER MACY11 30(1046) 
1S-JUL-77 i2:Se2 


DZTUGB.P11 START OF TESTS 
~«.<p 
5840 010530 105711 1S: TSTB = (RIL) 
2841 010532 100404 BMI 2s 
f ef 
i 
oes 2s: BIT SSDWN, (R1) 
fc BNE 3$ 
Bie Sag “RD 
c BR 2$ 
Oe PC, TIMON 
See 4S: BIT sSDWN, (R1) 
BEQ cs 
IMP TIMER(R3) 
cs: JSR PC, WAITRDY 
ites Ge Se 
BR 100s 
99S: HLT 
100$: SCOPE 
jREWINO DRIVE 
beat JSR PC, . REWIND 
a os, BE! 
ee Tn hae 
100$: 
ear sTEST D14-TURN AROUND DELAY ( 
THIS TEST MEASURES TIME FROM 
oa? +ST014: MOVB ali, 8 TSTNUM 
MOV 
JSR PC, URITE 
Stereo 
BVS got 
1S: JSR PC, REVRD 
JSR PC’ TIMON 
INC (RS) 
2s: TST TC(RS) 
BPL 3s 
IMP TIMER(R3) 
3S: JSR PC. WAITRDY 
BVS 994 
ISR PC, TIMOK 








15-JUL-77 12:55 PAGE 69 


;READY SETS 

; TURN TIMER ON 

;BRANCH WHEN SWON = 0 

;GO TO TIMER & RETURN VIA Re 
;WAIT FOR READY 

;REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 


(FORWARD-REVERSE ) 
’GO’=1 (READ REVERSE) TO ’ACCL’=0 


T_RETURN PC FROM TIMER 
A RECORD 
*GO’ BIT 


;GO TO TIMER & RETURN VIA Re 


SEQ 0069 


SEQ 0070 


GO6 
IS-JUL-77 12:55 PAGE 70 


START OF TESTS 


1S-JUL-77 12:S2 


11000 
1 
1 
1 
11014 
11 
= 8 
G2 


Pil 


OZTUG-8 TNO2/TE1G DRIVE FUNCTION TIMER MACY11 30(1046) 


& x 

2g h 
_& + 1. p of 865 
T 9&8 9, os 2 0 a .~ £28 
ei ge; BS meat, 
cans wre § & cB BEE Se 
es -~5F a ~5°&s8 
patie Aa 3 wei S8ba Gs 3S 


DELAY (REVERSE-FORWARD ) 
3 FROM ’GO’=1 (READ) TO ’ACCL 
9 
i] 
’ 
] 
; READ 
; TURN 
;SET 


@eTSTNUM 


wR 
) 
BA 


ees a a: 
S SHOR! oF Se 


ae 
S 2 upeRBRRENe BE BBE 
#8 2 


_ 


RITE 
ITROY 
DELAY 
VRO 
MON 


TIMER(R3) 
#16 

ue 

Pe 

994 

Pe: 

(RS 

(RO) 
FinercRa) 


-“_ 


TST 
3 
JSR 
BVS 
JSR 
BR 
SCOPE 


spoenennny ch 


STOIS: 
STO16 


; TEST O16-GAP SIZE (STOP HALF) 


Free arrioe oo1122 ft 
174152 
173652 
173386 


; THIS 


onraee oo1122 ft 
74260 
174474 


1§ 
es 

3s 
99S: 
100$: 


7 174442 
7 173354 
000032 
OO4444 
174212 
1734S4 


Ce ee en a a or i 


‘ 
Git SSeapeey be bed ee bese 
g Ee 











DZTUG-8 TMO2/TE16 DRIVE FUNCTION TIMER WMACY11 30(1046) 1S-JUL-77 12:55 PAGE 71 
OZTUGB.Pil  15-JUL-77 12:S2 START OF TESTS 
11124 104400 99s: HLT 
11125 104000 i00$: SCOPE 
-TEST 017-GAP SIZE (START HALF) 
111 900917 001122 $STO17: MOVB 817, a87STNUM 
111 1210 MOV 81S ;SET RETURN PC FROM TIMER 
ill 1 JSR PC, WRITE ‘WRITE A RECORD 
lll INC (RS) SET *GO’ Br 
it 174056 JSR BC AITROY *WAIT FOR 
111 174272 JSR PC, REVRD ;READ REVERSE THE RECORD 
111 INC (RS) *SET 'GO’ BIT 
111 174042 JSR PC. WAITROY jWALT Se READY 
lll BVS 99¢ aries ERROR 
111 173542 ISR PC, DELAY imal TAPE MOTION TO STOP 
il 174234 ISR PC; READ 
il 17314 JSR PC’ TIMON iT rer ON 
ll INC (RS) “SET 'GO’ BIT 
11210 1S: TST (RO) ;WAIT FOR FRAME COUNT > 0 
1 BNE 25 
11214 oo4444 IMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
11220 174006 2s: JSR PC, WAITRDY ;WAIT FOR READY 
11 BVS 99¢ 
ll 173250 ISR PC, TIMOK CHECK TIME 
1 BR 100s 
il 995: HLT 
ice i00$: SCOPE 
TES! a ores f i Cec ’=1 TO ’FC REG’ >0. 
11 000020 001122 ra: Ave 420,08 PE THOM iz 
11 011330 * MOV $Re Ser RETURN PC FROM TIMER 
i 174142 ISR Pe, WRITE A RECORD 
1 INC (RS) *GO’ BIT 
re 17374% JSR PC, WAITRDY tr FOR READY 
il 174126 dan 
il INC (RS) ETS Be GI 
i 173732 JSR BC WAITROY WAIT FOR READY 
i 174146 ae Pea ; READ SECOND RECORD 
ais INC (RS) SET °GO’ 
tials a 173716 JSR PC, WAITRDY :WAIT FOR READY 
it 36 174132 aS Re Revo READ REVERSE FIRST RECORD 
11356 Sossis ine | (RS) HUAN, Yr hae 
il 057 1S: TST (RO) ;WAIT FOR FRAME COUNT > 0 
il 1 BNE 2s 
11334 000163 oo4444 IMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
011340 004767 173666 2s: ISR PC, WAITRDY ;WAIT FOR READY 





SE@ 0071 


OZTUG-8 ate’ £6 ORIG oo TIMER meCY HL 20110) gg 0b. PAGE 72 


OZTUGS. P11 

3007 011344 102403 BVS 99s 
O1139% 004767 173130 JSR PC, TIMOK 
011352 OO00401 BR 100s 


foes: © Store 

i Tats 02i- ‘Tite cron 

ay 

i pee Harri 
Sire a a 


= = be a5 


BRANCH IF ERROR ON REWIND 


. 2 Bo ‘ahd eee 


Biizze | {fiooe 


aA, 2 
pong KITH A BELAY FROM 1-16 MS 


Ronn URADDROUSe LPAI Se! Sau HAIER RONAN SSCS oe eo aS 
Shanes 
om 








a tk ei 
eRe lh ee 


11 

11 

ll 

il 

i 

410 JSR 
11414 ¢ INC (RS) ere as BI 
ie : ; JSR PC ,WAITROY WAIT FOR READY 
04? J PC WRITING NEXT REC. 

if ABO BiG DEL TIN SET Te Octet iN 

114% DEC RO CREHENT RECORDS WRITTEN COUNT 
11 BNE is 

11442 MOV $17. ,.RO SET RECS. TO REVERSE READ 
1146 2s JSR PC, REVRD READ i7. RECORDS 

INC (RS) *SET 'GO’ BIT 

i JSR BC HAITROY ‘WAIT FOR READY 

rf Det RO ;DECRENENT RECORD COUNT 

11 MOV #16. RO ;SET § OF RECORDS TO READ 
is MOV SCAPTBL RI PTR TO TABLE FOR TEST 

1 JSR PC, READ : 

il INC (RS) ;SET ’GO’ BIT 
atta ete 3s JSR PC ,HAITROY ;WAIT FOR READY 

tt i ae PC, READ ;READ NEXT RECORD 
O11 ISR PC’ TIMON :TURN TIMER ON 

il 1 INC (RS) *SET °GO’ BIT 
011524 005765 4g: TST EC(RS) ;WAIT FOR FRAME COUNT > 0 
pi tese IMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 


SE@ 0072 


TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 1S-JUL-77 12:55 PAGE 73 SE@ 0073 
Pil 1S-JUL-77 12:Se2 START OF TESTS 











011536 004767 173470 cs: JSR PC. WAITRDY ;WAIT FOR READY 
Les ee oP cesad IN_GAP 
Libis pee a i BECRENENT 8 OF BE coROS READ 
il 1355 BNE 3s 
1B ie Be e ie rhode 
11862 612701 001 MOV SARTO RI 
11 2 6S: MOV (R1)+,R4 CK COUNT 
L870 7 173016 JSR PC, GAPOK i eck or ne 
11 1 1120 INCB asdaP INCREMENT GAP 8 
11600 ieers? 000020 001120 CMPB =s«8#16. , @8GAP BRANCH IF ALL GAPS NOT CHECKED 
11 1367 BNE 6$ 
30 011610 O1 000020 MOV #16. ,RO ;SETUP TO AVERAGE GAP SIZES 
081 011614 012701 001054 MOV SGAPTBL,R1 SET PTR TO TABLE 
326 + CLR Re :CLEAR ’SUM’ REGISTERS 
08 i 1 7S: R00 (RL)+, Re ;ADD ALL GAP SIZES TOGETHER 
ee O11 bee 
087 O11 BNE 7§ 
p88 O11 000004 MOV #4, RO ;NOW DIVIDE BY 16. 
11 gS: ASR R3 BY SHIFTING 4 PLACES RIGHT 
it ROR R2 
1 DEC RO 
11 BNE 85 
Ligsp MOV R2,R4 ;MOVE AVERAGED TIMES TO RY 
11 172624 ISR PC’ TIMOK *CHECK AVERAGED TIMES 
os 011656 BR 100s 
011660 995: HLT 
011662 100$: SCOPE 





1 

1B} % See oe Lee NOTHING 

3102 011664 112737 000022 001122 jude I MOVB 822, a8TSTNUM 

104 : TEST TA TI 

1 ‘THIS Hise "FC REG’ CHANGES TO ’RDY’=1. 

1 011678 112737 p00023 o0li22 tsTO23: Rove 

i 11708 Spares ted TOR PC (te iE UIND SUA a. 
3108 at Ibs? BVS 998" ? BRANCH ON REWIND 
110 0117 7? 173636 ISR R3, THCMD * WRITE WORD RECORD 
iis ii7a8 015700 WORD WTBUF ‘3m WRITE BUFFER ADDRESS 
tia B1i759 Aoooed HRD “p00 : st Fave COUNT pth 

ie 1175¢ Speete INC (RS) eet coe BIT BIT 

117 011730 022710 174700 1S CMP #-1600. , (RO) ;WAIT FOR FRAME COUNT TO CHANGE 
3118 011734 OO1004 BNE 2s _ 1 
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boioee 


000771 


MACY11 30(1046) 
START OF TESTS 


99S: 
100S: 


tsiBe: 


1$: 


4§: 
SS: 


ag 


G4 Svaeanes eae 


a 


mS 
w 


a see 5aae 
a 


= 
a 


BysGanes ta40 3% 
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#ERR, (R1) 
99S 
1s 


;MONITOR ERROR BIT 


;TURN TIMER ON 
‘WAIT FOR READY TO SET 


GO TO TIMER & RETURN VIA Re 
SET 10 DIVIDE BY 
;BY SHIFTING RIGHT 3 PLACES 


;CHECK TIME 


;SET ’GO’ BIT 
;BRANCH WHEN WRITING BEGINS 
;MONITOR ERROR BIT 


; TURN TIMER ON 
sBRANCH WHEN READY SETS 


;GO TO TIMER & RETURN VIA R2 
;SET SHIFT COUNT 


;CHECK TIME 


beTbee” Pll I ies yng" age 


§ wy igs Os = 


001300 000032 
He 173356 
| : 
1 
1 
1 
12210 163400 
leel4 
Le 
1 1 
1 
1 004767 172122 






ae Ga bs Pe Be se a he ee ene a 
. + 


001122 


ee ear 
+ + 





eT eee 


LO6 
WACYLL QO(L04G) 1S-JUL-77 12:55 PAGE 75 


100$: SCOPE 
; TEST ng ie TIME_(8008P1) 


tsTo2es : hove rp 8TSTNUM 
JSR * REMIND 
HE SEP ng wor 1, TC1RS 
.WORD WTBUF 
WORD ” oe 
WORD Y 
* WORD WD 
INC (RS) 
1S: CMP 8-6400. , (RO) 
BNE 2s 
BIT #ERR, (R1) 
BNE 995 
BR is 
es: 
JSR PC, TIMON 
3S: TSTB) Ss CRI) 
TIMER‘ R) 
4g: #3, RO 
SS: rd 
PC. WAITRDY 
a TIMOK 
100s 


Ges, ae STOR 


ia 


2 conenomtt, TC(RS) 
TMCMD 


ax 


Ee 


~— 


18: 


a 
33 iv OE, Be SsuRnes a 


ur a 
5 
8 


SEQ 0075 


PC FROM TIMER 


iBRANGH TE ON REWIND 


BP 
WRITE 3200. WORD RECORD 


;SET ’GO’ BIT 
;WAIT FOR WRITING TO START 
;MONITOR ERROR BIT 


; TURN TIMER ON 
;BRANCH WHEN READY SETS 


3G0 TO TIMER & RETURN VIA Re 
;SET SHIFT COUNT 


;CHECK TIME 


;BRANCH IF DRIVE ’NRZ ONLY’ 


‘REWIND SLAVE PC FROM TIMER 


BRON OT abe ERROR ON REWIND 
SET 1 
;WRITE 3200. T JoRo RECORD 


;SET ’GO’ BIT 
;BRANCH WHEN WRITING STARTS 





OZTUG-B TMO2/TE16 DRIVE a TIMER MACY11 30(1046) IS-JUL-77 12:55 PAGE 76 SEQ 0076 
OZTUGB.P11 1S-JUL-77 1 START OF Ss 


TEST: 
Gt 0 Bbiol? 040000 pos oo ;MONITOR ERROR BIT 
BR 1$ 
2s: 
fies es, By ELIE Meso se 
1 100402 BMI 4$ 
012374 000163 Oco4444 IMP TIMER(R3) ;G0 TO TIMER & RETURN VIA Re 
Does 4S: = ;DIVIDE TIME BY 4 
1 767 172622 JSR WAI TROY 
1 


RY 
RY 

172064 oe ox CHECK TIME 
100s 





o1 20 104400 995: HLT 
le422 104000 i00$: SCOPE 
TEST 027-ERASE 
' $THIS TST MEASURES TINE FROM ’GO’=1 TO ’RDY’=1. 
1 001122 ST027: MOVB 827, 08TSTNUM 
1 12460 MOV ue Re SET RETURN PC FROM TIMER 
} JSR aaTMCMD 
. WORD 
1 WORD 5 
t “WORD Pease 
i 171676 ISR PC, TIMON TURN TIMER ON 
INC (RS) *SET 'GO’ BIT 
Ee 1S: TSTB (RL) sBRANCH WHEN READY SETS 
1 oo4444 ‘it IMER(R3) GO TO TIMER & RETURN VIA Re 
12470 172536 2S: JSR PC, WAITRDY 
HES BE eon Fries 
1 1 BR 100s 
12504 104400 995: HLT 
sear 104000 i00$: SCOPE 
;TE T 
thts Yeer RESSURES TIME FROM ’GO’=1 TO ’RDY’=1. 
12510 112737 000030 001122 isTos0: ROVE 830, 28TSTNUM 
} 046560 roy ais Re it RETURN PC FROM TIMER 
J WRITE ITE A RECORD 
1 a: 1§ Att INC (RS) SET GO’ BIT 
i tee, | ia Ste 
1e5.3% oosss4 JSR. -R3, @#TMCMD 
tes . WORD : 
152 “WORD 0 
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OZTUGB.P11 1S-JUL-77 12:Se START OF TESTS 


8, BtSee9 GRAVES izis7e yer BE non TURN TIMER ON 
3289 012556 o0s215 INC — (RS) ‘SET GO’ BIT 
34) 1 apf 1057 44 1S: ise gu) BRANCH WHEN READY SETS 
012564 000163 cOov444 JMP TIMER(R3) GO TO TIMER & RETURN VIA Re 
2 piga7e On4767 172436 2s: JSR WAITRDY 
012576 004767 171700 JSR PC, TIMOK 
012602 000401 a 100s 
‘ 104400 998: _ MT 
1 004767 172524 "JSR PC, . REWIND REWIND SLAVE 
: ie 106774 BS 99$ _ {BRANCH IF ERROR ON REWIND 


BO? 
pore S (mete 2 RI + ea TIMER Yd 20t 10H) 1S-JUL-77 12:55 PAGE 78 SEQ 0078 









3305 012616 012700 oD0012 FINISH: MOV #10. ,RO ;SET LINE FEED COUNT 
ee 01 ob ee 001374 1S: TYPE, CRLE 
1 ies 000100 166140 aha i , OSWR 
Re FB on ve Seon, 
A Res tie Bie a eee 
Bie hte 1 1 ‘3 2s: ines Duck sSET NEXT SLAVE a 
Rot 15298 ea eee 001005 Eee See VNUM + BRONeH FURST suave (7) 
3B BiSooe cestid 006764 oe SeoecIN ;BEGIN TEST ON NEXT SLAVE 
3321 Ol 1 1005 2g CLRB @8SLVNUM : 80 
se 1 1 1004 NCB SSORVNL >AND I DRIVE # 
334 so cf 
i 1 ie m rs 001004 ceo. en" o "AND CHECK IF LAST DRIVE 
eo ot 37 001125 END:  TSTB S8UNTFNO ;BRANCH IF A UNIT WAS FOUND 
as is 014047 PYRE, E.UNTT 
3330 o1 137 = ie asINIT 
3 Oisree 767 167012 7 JSR PC, CKSWR ;CHECK FOR CNTL G 
3333 012756 RESET 
3334 012760 000137 005724 IMP asINIT : RESTART 


DZTUG-BTHO2/TELE DRIVE FUNCTION TIMER Mary 20(1046) oat ion PAGE 79 





3335 ;SKEW TAPE TIMING TESTS ani . 
BBB oxeren ovevsr overre coioue SUSnTABN™ "PLS MSeNaR eo ST TEL PPAR 
3339 ;TEST 031- TAPE SPEED TEST-FORWARD 
a Renee Se SP ee 1? CRE REED A ee 
as 012772 112737 000031 oo1122 ert : MOVB e312 tis hun 
oa ae Bes | 5 Smo Lie yee en THe 
i i Bye 11, TC(RS) eee — 
S i Speeie | Bocolo Bre = Fred INCREMENT 
: 005554 TSR Reh READ 32° OF TAPE-FORWARD 
Ba 10S “WO 2 FRAME COUNT 
= 1 1 INC (RS) ;SET ’GO’ BIT 
1 001440 1S . , (RO) ;WAIT FOR FIRST 800 FRAMES 
a Bi30ed rare Sir i ‘TO BE 
I3SE JSR —- PC, TIMON TURN TIMER ON 
2S: cr gel0s, (RO) *WAIT FOR READING TO FINISH 
INP —s—s TIMER(R3) GO TO TIMER & RETURN VIA Re 
eH it 3s: i ~ DIVIDE TIME BY 32. 
om er RHINIT sINIT DRIVE 
= 3 Peg TOK s ohecx TIME 
3370 : 
337 99S: HLT 
e 100$: SCOPE 
TREE BED PRES ETERS Foes) or swe, en ewes severe 
3376 5 fei” FRAMES) OF TAPE. IME TIME IS THEN DIVIDED BY 
T0 TO i" (800. FRAMES) OF TAPE. 
A nap yg gue once itl Bie a ae a 
sat tiie teas ee 2 kn = Erno 
es ataise reat goo032 HE mee 
ea oils ie "ORD fahren oe — 
131 77777 “WORD -1. WORD COUNT 
$e He bears - BS Be es 
$383 13170 005215 INC (RS) “SET 'GO’ BIT 
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000010 
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9810S, (RO) 
is 


POLY 
PesGenoem, TCERS) 


: ab 


. 
-_ 
Ve 


nase 
en 
-. 
vo 
8 
ee 


-_ 
a 


iat Ble MOTION TO STOP 


OTL BEBE HSGPOT 


;WAIT FOR FIRST 800 FRAMES 
;T0 BE READ 


; TURN TIMER ON 

;WAIT FOR ALL FRAMES TO BE READ 
;GO0 TO TIMER & RETURN VIA Re 
;DIVIDE TIME BY 32. 


PROGRAM MESSAGES 


TIONS 
(CR><LF>*TE16 DRIVE FUNCTION TIMER (DZTUG-B)’ 


(CR><LF>’ TYPE FIRST ADDRESS OF CONTROLLER 
*NO CONTROLLER AT ADDRESS SPECIFIED’<CR><LF> 


*SPEED TESTS ONLY? (YES/NO = 1/0)’ 
"NRZ ONLY? (YES/NO = 1/0)’ 
<CR><LF>*END OF TAPE’ <CR><LF> 


"FOR TMO2 DRIVE ’” 


TOR TNSTRUC 
NAM: .ASCIZ 
ASCIZ 


I. REG: 
I.DRVS: .ASCIZ “TYPE TMO2 DRIVE #’S TO BE TESTED ~% 


I.SLVS: .ASCII 


oe aa cee : ie at is 


A. 


I.DRV: .ASCIZ %O- TYPE SLAVE #’S TO BE TESTED ~ 


E.NCON: .ASCIZ 


I.SKEW: .ASCIZ 

I.NRZ: .ASCIZ 

ASCIZ 

- ERROR S 
101 &.TRPY: Ree i <(CR><LF>’ TRAPPED TO 4’ 


1 
104 M.EOT: 


: 
f 
x 
; 
; 
d 
R 
oa 
: 
: 
: 
Se 


1S-JUL- 


dh dd ad dd ot 
Q0o0000000O 


pyrene, rete 3s ORI 
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Pl 1S-JUL-77 12:52 PROGRAM MESSAGES 





E.NORV: .ASCIZ ‘'TMO2 DRIVE ’ 


E.NSLV: .ASCII ‘DRIVE ’ 
E.DRV: .ASCII °O SLAVE ’ 


E.NAVA: .ASCIZ 'O NOT AVAILABLE FOR TEST’<CR><LF> 


E.UNIT: .ASCIZ ’NO TMO2/TE16 UNIT FOUND TO TEST’<CR><LF> 


E.SFT: .ASCIZ ‘*SOFT ERROR (DATA)’<CR><LF> 


E.HOR: .ASCIZ ‘TEST #’ 
E.HOR1: .ASCII ° DEVICE ERROR’ <CR><LF> 


-ASCIZ °CS1’<HT>’WC’ <HT>’BA’<HT> FC’ <HT> °CS2’ <HT> DS’ <HT> ER’ <HT>’ TC’ <CR><LF> 


E.HDR2: .ASCIZ ° OUT OF RANGE ERROR’<CR><LF> 


E.TIMOV: -ASCIZ <CR><LF>’ TIMER OVERFLOWED’ <CR><LF> 


E. TIMEX: -ASCIZ <CR><LF>’TIME EXPIRED WAITING FOR RDY’<CR><LF> 





E.GAP: .ASCIZ ° GAP &’ 


;TIME DOCUMENT LINES 
C.HOR]: ASC] 2 GRHBHEHHHHEHEHHBHEHEHEHHEHEHEHEHHBHEHEHHHHEHEHEHHBHEHHHHHHEHEHEHEHHHHHHE 





GO? 
1S-JUL-77 12:55 PAGE 83 


PROGRAM MESSAGES 


** TMO2 DRIVE FUNCTION TIMES- DRIVE # ’ 


: .ASCII ° *<CR><LF>’#’<CR><LF> 
-ASCIZ °% FUNCTION’ <HT><HT>’ TIME(SPECIFICATION)’<HT>’ TIME (ACTUAL )’ <CR><LF> 


’O SLAVE #8’ 
’9 CHAN. SER # ’ 


I 
Zz 
II 


MACY11 30( 1046) 


T,*Y,t¥ 


dt 


L.HDRe: .ASCII 
053101 L.ORV: .ASCII 
SLV 
L.HOR3: 





hte 


WO Sere gl 


nen 


Ge rd eh OG 8 ed oe el eG en GE eg 9 Od eh ag ed nd 2 a ee Od On 
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OZTUGS.P11 





"RANGE =<’ 
*ACTUAL=’ 


-ASCIZ 


O01 OS2103 O40S2S L.ACT: 
000 


14 


Se 7 O42S07 L.RNG: .ASCIZ 


ig: 





"# WRITE START’ <HT><HT> 


*# WRITE FROM BOT’ <HT> 
**# WRITE SETTLEDOWN’ <HT> 
*# READ FROM BOT’ <HT><HT> 
*# READ START’ <HT><HT> 


** WRITE SHUTDOWN’ <HT> 


; TEST DESCRIPTOR HEADERS 
-ASCIZ 


guise A.T001: 


A.TOO2: .ASCIZ 
A.TOO3: .ASCIZ 
A.TOO4: .ASCIZ 
A.TOOS: .ASCIZ 
A.TOO06: .ASCIZ 


is oe a 5 : 
Oe: cited Gar gall 22 
tr te eee 


ESS SSSR AGSS Fr 


dd ad eg ad ed ed ey ad Od ed ed dd ed et det dt 


FRRER 
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N 
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052524 

bee Bak 
4 

O4S440 





| 
1 
r 
rt 
: 
i : 
1 050101 
1 
15 
ie 
1 
1 
1 
1 
r 
1 
1 
15 
1 
1 
i 
8 
i 6 
i 102 
1 052101 
1 042515 


A.TO07: . 


A.TOO: . 


A. TOLL: 


A.TOle: 


A.T013: 


A.TO14Y: 


A.TO1S: 


A. TO16: 


A.TO17: 


A. T020: 


A. 7021: 


A. TO23: 


A. TO24: 


A. T02S: 


ASCIZ 


ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


& DRIVE FUNCTION TIMER MACY11 30(1046) 15-JUL-77 12:55 PAGE 84 
77 le: PROGRAM MESSAGES 


*# READ SHUTDOWN’ <HT><HT> 


*# READ SETTLEDOWN’ <HT> 


*# READ REV START’ <HT> 


*# READ REV SHUTDOWN’ <HT> 


*# READ REV SETTLEDOWN’ <HT> 


*# TURN AROUND DELAY F-R’<HT> 


’# TURN AROUND DELAY R-F’<HT> 


*% GAP SIZE-STOP HALF’ <HT> 


*# GAP SIZE-START HALF’ <HT> 


*# GAP SIZE-INTERRECORD’ <HT> 


*% GAP CONSISTANCY’ <HT> 


*# DATA TIME-2008P1’ <HT> 


*# DATA TIME-SS6BPI’ <HT> 


’# DATA TIME-BOOBPI’<HT> 


SEQ 0084 
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1s 
18S 
it: -ASCIZ °# DATA TIME-1600B8PI’<HT> 
-ASCIZ '# ERASE GAP TIME’ <HT> 
18s 
: : .ASCIZ °# WRITE FILE MARK’ <HT> 
: 
i -ASCIZ °# TAPE SPEED-FWD’<HT> 
156 
: : .ASCIZ °’# TAPE SPEED-REV’ <HT> 
1s 
1 : 
1 01 l2@ 000107 L.CNTG: .ASCIZ <CR><LF>’tG’ 
Hes oostie pe7bls O036S22e L.SWR: .ASCIZ <CR><LF>’SWR=’ 
tee 
Bt 1 D40 O47040 OS3S0S L.NEW ASCIZ ° NEW=’ 
01S666 020075 000 
pies} 1§ O37412 OOSOIS L.QUEST: -ASCIZ <CR><LF>’?’<CR><LF> 
1 .EVEN 
ft abot. 
015700 WTBUF=. 
015700 000200 -BLKW 128. 
000001 . END 


JO? 
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SYMBOL TABLE 


vn 
1 Eebeereceecrestenen 


2=14.7 
S) 


CONDS 


1 
(13 


SEQ/SOL/NL : TOC/DOC+DZTUGB. P11 
00010000 770804 


eu 


DOCUMENT PAGES: 87 
EOF 1DZTUGBSE@ 
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- ABS. 016300 000 
ERRORS DETECTED: 0 


